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Inhoud van dit nummer 


Nieuws 4 

Wetenswaardigheden en 
nieuwe produkten 

GEOS 8 

Een nieuw ”user-interface”, dat 
als "schil” voor het operating 
systeem de 64 een echt ”icon”- 
beeld geeft. 


Tier’s Wir-War 11 

Onze computerstrip met een 
knipoog naar alternatief 
macho-computergebruik. 


Facelift voor de 
C-64 12 

Nieuwe vormgeving voor de 
vertrouwde 64 moet deze po¬ 
pulaire micro weer opnieuw in 
de belangstelling brengen. 


Miniatuurtj es 16 

Kleine korte programmaregels, 
de poëzie van het computer¬ 
tijdperk, verzameld door Nico 
Baaijens. 


Vragen 19 

Jan Bodzinga beantwoordt 
technische vragen van lezers. 


Software 22 

Vier pagina’s vol met nieuwe 
software-pakketten voor uw 
computer. 


Moviemaker 27 

Zelf animatiefilms maken. Een 
uitgebreide bespreking van dit 
doe-het-zelfpakket, waarmee 
U diverse hobbies combineert. 


Sorteren 30 

Het op een rij zetten van gege¬ 
vens is nog niet zo eenvoudig, 
maar Leon van den Torre legt 
het u op duidelijke wijze uit, 
compleet met tips. 


Datakolom 31 

Luc Sala met zijn zeer persoon¬ 
lijke kijk op nieuwe vormen van 
communicatie. 


Kleine 

advertenties 34 

Lezers zoeken of bieden hun 
gebruikte computers en ande¬ 
re computerspullen aan. 

Wedstrijd voor 
programmeurs 34 

Wedstrijdvoorwaarden van on¬ 
ze grote zomerprogrammeer- 
wedstrijd 


Lijnen in Basic 6 

Het tekenen van lijnen, vierkan¬ 
ten en cirkels in uw eigen pro¬ 
gramma’s met behulp van een 
aantal extra Basic routines. 
Met diverse listings. 


Joystickbesturing 63 

Voor de C-16 en Plus/4. 


Basic cursus 65 

Deel 6 van de cursus Basic, 
populair zowel bij beginners als 
bij enigszins gevorderden. _ 


Newsroom 73 

Met dit pakket openen zich uit¬ 
gebreide mogelijkheden voor 
de nieuwe rage: desktop pu- 
blishing. 


SampJ* Picture Memj trom TH» Neweroom" 

(mm Springtooard Software 


Machinetaal 

deel 12 74 

Deze keer het ontrafelen van 
een programma en het vinden 
van de sleutels op de kopieer- 
bescherming aan de hand van 
het al wat oudere spel ”Ghost- 
busters”. 


Extra Basic 
instructies 79 

Peter Heinckens voegt aan de 
bestaande Basic instructies 
een aantal nieuwe mogelijkhe¬ 
den toe. 


BRB I C 


Courseware 81 

Een cursuspakket van Malm- 
berg. 


Geen missers 

Gelukkig hoeven we ook deze 
keer geen fouten uit het vorige 
nummer recht te zetten. Alle 
programma’s waren foutloos 
afgedrukt. ■ 


PRINT-OUT 

Listing-rubriek 

Met aparte secties met: Utilities 
C-16 & Plus/4 listings 
C-128 listings 
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Copyboard 

Een interessant apparaat is het 
Oki Copyboard. Dit copyboard 
werkt als een schoolbord. In 
plaats van dat de zaal het krijt- 
schrift probeert te ontcijferen 
drukt het Oki Copyboard alle 
graphics, figuren en cijfers bin¬ 
nen luttele seconden als een 
20 x 25 cm foto af. Daarmee 
kan elke toehoorder binnen en¬ 
kele minuten over de op het 
bord geschreven informatie 
beschikken. Kortom, het Oki 
Copyboard werkt als onder¬ 
steuning van audiovisuele pre¬ 
sentaties en om de resultaten 
van discussies snel over te 
kunnen nemen. 


Speciale aanbieding 

Het vooraanstaande softwarehuis Malm- 
berg heeft een zeer speciale zomerver- 
rassing in petto voor de lezers van Com- 
modore-lnfo. 

Een aantal van de bekende educatieve 
software-pakketten worden met een 
unieke korting aangeboden aan onze le¬ 
zers. Het gaat daarbij om een aantal 
eigen Malmbergprogramma’s, waaron¬ 
der de tophits Rijweg en Muppet Com- 
putershow en om een aantal Fisher- 
Price programma’s, met het beroemde 
Woordenzee en Denkraam. 

De programma’s worden geleverd in de 
originele verpakkingen en kosten tijdelijk 
slechts ƒ 24,95 (cass.) resp. ƒ 29,75 (dis¬ 
kette) per stuk, inclusief verzendkosten. 

Gebruik voor uw bestelling de bon op 
pagina 72. 

Hieronder volgt een overzicht van alle 
programma’s die voor deze speciale prijs 
beschikbaar zijn. 

Titel Leeftijd 

Voor Commodore 64 

Malmberg 

Rijweg (cass.) 12+ 

Stoomtrein (disk) 12+ 

Schaakles (cass.) 12+ 


Malmberg software 


Muziekstudio (disk) 


12 + 


De Muppet Computershow (disk) 6+ 


Vormfabriek (2 cass.) 

Tik ’n toets (cass.) 

Ranch (cass.) 
Schatzoeker (cass.) 
Speurneus (disk) 
Bekketrekker (cass.) 
Breukendans (cass.) 
Kindercomp (cass.) 
Ruimtekolonie (cass.) 
Hazepad (cass.) 
Muziekmaker (cass.) 
Ruimterekenen (cass.) 
BMX rekencross (cass.) 
Geheim archief (disk) 
Schildpad (disk) 
Koppelkaarten (disk) 
Fisher-Price 
Hop, tel op (cass.) 
Woordenzee (cass.) 
Piekerspoor (cass.) 
Tuimelteller (cass.) 
Denkraam (cass.) 
Alfabetstad (cass.) 

Voor Sinclair Spectrum 
Malmberg 

Sommenkraker (cass.) 
Woordvanger (cass.) 


4+ 
4-8 
7-12 
11 + 
11 + 
4-8 
7-12 
4-8 
11 + 
7-12 
7-12 
7-12 
7-12 
11 + 
7-12 
7-12 

4+ 

8 + 

7-12 

7-12 

4-8 

4-8 


7-12 

4-8 
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KLUWER TECHNISCHE 
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7400 GA DEVENTER 
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I David Lawrence 

Programmeertechnieken voor de 
Commodore 64 

Een boek voor de gevorderde 64-gebruiker 
om professioneler te programmeren en zo 
2ggg; zuiniger om te gaan met de beschikbare 
aci geheugenruimte. De rijke ervaring van een 
van de succesvolste Engelse auteurs op het 
É| ~ gebied van software komt met dit boek ter 
^ beschikking van de thuisprogrammeurs. 

fl| ISBN 90 201 1870 6 
%' 142 bladz., prijs ƒ 29,50 




G. 0. Hamann/J. J. Eden 

Schaken met uw Commodore 64 / VIC 20 


Hoe en waarom kan uw Commodore een 
verstandige partij schaak spelen? In tegen¬ 
stelling tot veel kant en klare schaakpro¬ 
gramma’s wordt in dit boek systematisch een 
schaakprogramma in BASIC opgebouwd. 

Zo maakt u een door uzelf getrainde en 
geïnstrueerde tegenspeler... 


ISBN 90 201 1872 2 
90 bladz., prijs ƒ 27,50 


David Lawrence 

BASIC-programma’s voor de 
Commodore 64 


Er blijven steeds nieuwe facetten te ontdek¬ 
ken aan de Commodore 64. De reputatie van 
de auteur staat er borg voor dat u uitgekiende 
en tot in de puntjes verklaarde programma’s 
zult aantreffen. 

Tekstverwerking, kleuren, DATA-verwerking 
en opslag, financiële en educatieve program¬ 
ma’s etc. 

De praktische bruikbaarheid staat steeds 
voorop. 

ISBN 90 201 1871 4 
135 bladz., prijs ƒ 29,50 


The Consultant voor 
de C-128 gebruiker. 

Voor de eigenaars van een 
Cl 28, die geïnteresseerd zijn in 
een gebruiksvriendelijke en 
krachtige database, heeft het 
Canadese softwarehuis Bate- 
ries Included The Consultant’ 
op de markt gebracht. 

Enkele sterke kanten van het 
programma: 

Er zijn 99 velden over 9 pagi¬ 
na’s met een maximaal aantal 
van 65.535 records per data¬ 
base. De helpfiles zijn gemak¬ 
kelijk op te roepen en men 
hoeft niet over extra program¬ 
meerkennis te beschikken. Dat 
het hier op een krachtig pro¬ 


gramma gaat blijkt wel uit de 
accessnelheid van 10 records 
per seconde en een sorteers- 
nelheid van 250 records per 
seconde. Wat betreft het aan¬ 
tal gelijktijdig openstaande da- 
tafiles zijn er behalve de ge¬ 
bruikte hardware na, geen re¬ 
stricties. 

Een uitgebreidere bespreking 
(van de PC-versie) van dit pro¬ 
gramma stond in het vorige 
nummer van Commodire Info. 
We verwachten de Consultant 
binnen afzienbare tijd in Neder¬ 
land voor de acceptabele prijs 
van om en nabij de 300 gulden. 
Ariolasoft is de officiële impor¬ 
teur van BI produkten. 


De triathlonatleet Ron Balke werd bij zijn laatste 
wedstrijden gesponsord door Commodore-lnfo. 
Triathlon is een combinatie van zwemmen, 
wielrennen en een marathon. Ron Balke is een van 
de betere atleten in Nederland in deze uiterst 
zware sport. 

Als U denkt dat het intikken van drie pagina’s 
listings op uw Commodore al een aanslag op de 
conditie is, dan bent U waarschijnlijk nog niet 
helemaal in vorm voor uw volgende triathlon. 
Ron Balke wel en wij wensen hem dan ook veel 
succes bij zijn volgende wedstrijd. 
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Op zaterdag 1 november weer de bekende grootse koop- en kijkbeurs, 
georganiseerd door Saia Communications , in de RAL Weer een prima gele¬ 
genheid om hardware en software aan te schaffen tegen zeer aantrekkelijke 
prijzen . Dit jaar kunnen abonnees op de INFO bladen vooraf hun toegangs¬ 
kaarten toegestuurd krijgen! Meer informatie over deze nieuwe service van 
Saia Comminications in het volgende nummer van Commodore-lnfo. 
Exposanten kunnen inlichtingen vragen via tel . 020-273198. 
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Movie Maker 


een tike adventure-inslag. Dat 
klinkt ingewikkeld, en is het 
ook, want dit nieuwe spel van 
"Electric Dreams”, voor ƒ 49,50 
uitgebracht door Aackosoft is 
een driedimensionale fanta¬ 
siewereld, waar de blokken, 
ballen en kegels je om de oren 
suizen. Snelheid is geboden, 
maar de vloeiende scrolls en 
kunstig opgezette 3-D speel¬ 
velden zijn heel fraai. 

Split Personalities 

Eigenlijk had dit programma 
een iets andere titel moeten 


Gladiator 

Vanuit Engeland komen steeds 
meer martiale programma’s, 
waarin het vechten een hoofd¬ 
rol speelt. In een romeinse set¬ 
ting is er nu Gladiator van Do- 
mark, voor ƒ 26,50 te verkrijgen 
via Topsoft 020-253280. 


Cauldron II 

Aackosft levert voor ƒ 39,50 de 
spraakmakende animatie- 
Cauldron II, een vrij bizarre 
graphic-adventure, compleet 
met versjes en raadsels, die 
overigens ook in het Neder¬ 
lands zijn bijgevoegd. Verder 
wel erg engels, deze strijd van¬ 
uit de verloren pompoen tegen 
de gemene heks, compleet 
met toverformules, haarlokken, 
en de zoete overwinning. Amu¬ 
sant multi-screen met redelijke 
graphics. 


hebben, want het is een afge¬ 
leide van het bekende TV-pro- 
gramma Splitting Images. Be¬ 
kende figuren uit de Britse me¬ 
dia worden op humoristische, 
maar niet altijd flatteuze wijze 
ten tonele gevoerd. Die kun je 
dan te lijf gaan, dat wil zeggen 
binnen de tijdslimiet moet de 
puzzle worden opgelost, waar¬ 
na het complete beeld te be¬ 
wonderen valt. Een handig- 
heid-spelletje met een actuele 
inslag, maar geen echte blijver, 
vrezen we. 


werelden moet veroveren, han¬ 
del drijven, vechten, verdedi- 
gingsschilden opbouwen, de 
hele ruimtezooi die we uit an¬ 
dere spelen kennen. Van nog 
mindere kwaliteit is Firebird’s 
THRUST, een spelletje voor 
beginners, zullen we maar den¬ 
ken. Arcade-actie mag tegen¬ 
woordig best wat meer bieden 
dan bij elkaar geraapte ideeën 
uit oeroude spelletjes als Lunar 
Lander en Defender. 


Spindizzy 

Een echte actie-arcade met 


Empire 

Het succes van Elite heeft de 
mannen van Firebird wat over¬ 
moedig gemaakt, lijkt het wel. 
Ze overstromen nu de markt 
met wat magere aftreksels 
daarvan en we kunnen daar 
niet altijd enthousiast over zijn. 
Met Empire wordt men weer 
een ruimtepiloot, die vreemde 
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Met Moviemaker doet u op uw computer hetzelfde wat strip- en filmtekenaars met de hand doen, alleen doet 
M oviemaker het vele malen sneller. De mogelijkheden zijn legio: Honderden kant-en-klare figuren plus de 
mogelijkheid om ze zelf te creëren. Leg uw prestatie vast op video of disk en verras iemand met een 
eigengemaakte tekenfilm! Twee diskettes in één verpakking voor 
Commodore 64/128, Atari XL/XE en Apple U’s. 
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Gebruikersgroepen 


De VCGN (070-971851) is de oud¬ 
ste Commodore gebruikersvereni- 
ging en heeft iedere laatste zater¬ 
dag van de maand in het Lodewijk 
Makeblijde lyceum in Rijswijk een 
grote bijeenkomst, inlichtingen 
over de vele afdelingen kunt u krij¬ 
gen via het secretariaat: Haagweg 
155, 2281 AH Rijswijk, 070- 
950779. 

Verder afdelingen: Zeeland 01184- 
14789, West-Brabant 01640- 
42404, Midden-Brabant 01612- 
4242, Zuid-Umburg 04490-19946, 
Zuid-Holland 078-135739. 

PET Benelux heeft bijeenkomsten 
in Zeist (1 e zaterdag), Nijmegen (2e 
zaterdag) en Haaksbergen (3e za¬ 
terdag). (lnl.05759-2211). 

De HCC Commodore gebruikers¬ 
groep heet Compet, 03404-59599. 

HOT NEWS van SCN uit Amster¬ 
dam (03450-16051) heeft haar 
maandelijkse bijeenkomst in de 
Meervaart op de tweede zaterdag 
van de maand en ook activiteiten in 
Zwolle (038-548459), Midden Ne¬ 


derland (03453-1375) en Deventer 
(05700-50758). 

In Arnhem zit een Commodore- 
club, waar men clubavonden op 
dinsdag iedere twee weken organi¬ 
seert en ook cursussen geeft. Inl. 
Hofsingel 259, 6834 GH Velp, tel. 
085-647782. 

De Dutch PC Club organiseert 
iedere tweede zaterdag een bijeen¬ 
komst vooralle merken in de Kajuit, 
Hazekampseweg 36 in Nijmegen, 
Inl. Spechtstr. 32, 4043 LS Op- 
heusden. 

Den Helder heeft de Commodore 
CG, te bereiken via Postbus 2068, 
1780 BC Den Helder of telefonisch 
via 02230-31430. 

In Groningen is er elke 2e zaterdag 
van de maand een gebruikersbij- 
eenkomst in de Beijumkorf, Jalta- 
dadreff te Groningen, aan vang 
10.30 u. 

In Noordwijk zit een C-64/128 ge¬ 
bruikersgroep, die iedere Ie don¬ 
derdag een bijeenkomst heeft. In¬ 
lichtingen A. v.d. Klaauw® 01719- 
16720. 

Oss heeft de vereniging ACC, voor 


Oost-Brabant en de Betuwe, via 
postbus 215 of telefoon 04120- 
42054/37649 bereikbaar. Bijeen¬ 
komsten iedere derde zaterdag in 
”de Pas” te Heesch. 

Voor de Amiga is er ook een club, 
te bereiken via Postbus 41138, 
1009 EC Amsterdam. Inl. 020- 

931191. 

* 

BELG IE 

De CCCB is een van de clubs uit 
Belgie, met afdelingen in Antwer¬ 
pen, Limburg, West-Vlaanderen inl. 
Bindstr. 19, te 2600 Berchem Ant¬ 
werpen. Lid worden door storting 
500 fr op 405-5092171-90 tnv. 
CCCBA. 

Ook de HCC België heeft bijeen¬ 
komsten iedere 2e en 4e maandag 
op de Ottergemse steenweg-Zuid 
705 te Gent (03-6468961). 

In Oostende is er de Commodore- 
Club Oostende, Raversijdestraat 
48, B 8400 Oostende 059-805191. 
Ook in Borgerhout is er een G-64 
gebruikersgroep, die de 2e en 4e 
zaterdag van de maand om 19.30 u 
bijeenkomt de ”de Sportschuur”. 


Andy-robot 

"Levendig, boos, droevig, la¬ 
waaierig, vriendelijk, musi- 
kaal, zwierig , flirtend, en 
geestig zijn een aantal rekla- 
mekreten in de advertentie 
over de robot Andy. Andy, 
werelds eerste robot met 
een programmeerbare per¬ 
soonlijkheid, wordt gefabri¬ 
ceerd door Axlon, Californië. 

De robot komt kompleet met 
een persoonlijkheids editor in 
eenvoudig BASIC op disk. 
D.m.v. simpele engelse woor¬ 
den kan men de robot com¬ 
manderen. Andere bruikbare 
programmeertalen zijn o.a. LO¬ 
GO, ACTION en FORTH. Andy 
beschikt over een ingebouwde 
geluidsgenerator en sensoren 
voor licht, geluid en botskon- 
takten. De robot rijdt op 
wieltjes over normale gladde 
oppervlaktes. Met een batterij- 
set werkt Andy ongeveer zeven 
uur. Andy kost c. a. fl 250,- en is 
geschikt voor de Commodore 
C-64 en Cl 28 machines. Na¬ 
dere info bij AXLON, P. O. Box 
306,125 Main St. , Half Moon 
Bay, CA 94019. 

Spy versus Spy 

In de trend om bekende strip¬ 
verhalen tot videospelletjes om 
te werken past ook Spy versus 
Spy. Deze al vele jaren in het 
satiriese maandblad MAD lo¬ 
pende strip gaat over de co- 
mic-strijd tussen een witte en 


zwarte spion die elkaar beurte¬ 
lings naar het leven staan. De 
Cubaanse Cartoonist Antonio 
Prohias lijkt daarbij onuitputte¬ 
lijk in het bedenken van nieuwe 
inventieve en komiese (?) ge- 
weldadigheden. De witte spion 
speelt in dit spel tegen de 
zwarte (computer of tegen¬ 
stander). In een race tegen de 
klok probeert de witte speler 
een vijftal voorwerpen (akten- 
tas, geheime plannen, een 


sleutel, een paspoort en geld) 
te pakken te krijgen. Daarbij 
natuurlijk danig gehinderd 
door diens zwarte opponent. 
De witte spion kan daarbij ech¬ 
ter ook een aantal tegenmaat¬ 
regelen nemen. Zo beschikken 
de beide spelers over bom¬ 
men, pistoolvalstrikken, onder 
stroom staand water enz, als 
wapen. En een paraplu (tegen 
het water), een schaar (voor de 
pistoolvalstrikken) e. d. ter ver¬ 


dediging. Een aardige vondst 
is de zogenaamde Simulvision. 
De activiteiten van beide spi- 
onnnen zijn daarbij op een in 
twee:en gedeeld beeldscherm 
zichtbaar. De witte spion bo¬ 
ven-, de zwarte onder in beeld. 
Men kan elkaar op deze manier 
nauwlettend in de gaten hou¬ 
den. Echt iets voor de liefheb¬ 
bers van deze komiese MAD- 
strip. • 



Commodore gebruikers 
nu even serieus! 


Universele Eprom programmer 

• Programmer voor 2716 t/m 

27128 156.50 

• Epromkaart. instelbaar 44 .— 

• Epromwisser. voor 4 eproms 109.75 

• Expansion, 2 slots schakelaar 59.— 

• Expansion, 5 slots schakelaar 149.— 


Parallel printer interface 

Bijna alle printers op uw commodore 
g direct aan te sluiten • neemt geen 
geheugen in beslag • hoeft met geladen te worden 

• aansluitbaar op seriepoort of diskdrive *|*|Q50 

• Optie: ingebouwde 16 k-buffers 39.50 1 I jjfm 


9 KB ^■■■1 

geheugen, 

met software 149 

• Expansionboard, 2 slots 31 

• Expansionboard. 5 slots 85 






80 teken/grafiek kaart C64 

• geeft 80 . haarscherpe, tekens/regel • nederlandse 

snelle tekstverwerker meegeleverd • geeft 1 k extra 
geneugen * 40 kolomsbeeld kan Êft 

met 80 koloms worden gemengd^C#^nr ■ ü 
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Menig C-64/C-128-bezitter heeft al 
met afgunst naar de GEM Desktop 
voor Personal Computers of de 
MAC ikonen gekeken. De ikonen, 
vensters en trekmenu’s daarvan 
bieden niet alleen veel gebruikers- 
gemak, zij maken ook het moeilijke 
DOS-besturingssysteem meer toe¬ 
gankelijk voor de beginner. Voor de 
64 nu een dergelijk systeem, dat 
GEOS heet en met een muis werkt. 

GEOS 

Revolutionair 
Operating Systeem. 

Een eigen applicatie-manager 
op de C-64 en C-128 



O p de CES in Chicago werd GEOS 
voor het eerst aan het publiek 
getoond en uit de enthousiaste 
reakties bleek wel, dat Commo¬ 
dore hiermee (eindelijk) weer 
eens een fundamentele verbetering 
voor de 64 heeft. GEOS is een door het 
Amerikaanse softwarehuis Berkeley 
Softworks nu een eigen Commodore 64 
Desktop manager ontworpen. Het 
Graphic Environment Operating Sys¬ 
tem (vandaar GEOS) geeft de C-64 en C- 
128 een nieuw en gebruiksvriendelijk 
beeldvenster om met toepassingen te 
manipuleren. 

Op de CES kregen we van Commodore 
topman Clive Smith een uitgebreide de¬ 
monstratie van GEOS en mochten ook een 
prerelease versie mee naar huis nemen. 
De definitieve GEOS komt binnenkort. Er 
bleken namelijk toch nog wat kleine bugs 
in GEOS te zitten, waarmee overigens de 
verhalen in een aantal Amerikaanse en 
Duitse bladen over GEOS wel werden ont¬ 
maskerd als opgeblazen persberichten. 
Laten we eerst de positieve kanten van 
GEOS noemen. De grafische kwaliteit is 
weer een klasse beter, dan wat we eerder 
zagen op een 64, de mogelijkheden van 
die machine zijn toch steeds weer verras¬ 
send. Het lijkt warempel al aardig op een 
ST beeldje. 

De Commodore DOS 2.0, die ondertussen 
wel aan een update toe was, stond bekend 
als ingewikkeld en onvriendelijk, maar is 


Cummanci Menu 



hiermee zeker op niveau gebracht. De 
concurrentie met andere 8 bits machines 
is duidelijk op achterstand gezet. Het 
werkt allemaal duidelijker, begrijpelijker en 
naar de laatste mode. 

Een nadeel is de relatieve traagheid van 
het systeem, gedeeltelijk te wijten aan de 
trage diskdrives, maar ook de muisbestu- 
ring is soms irritant traag. Misschien wordt 
dat nog iets verbeterd, maar we zijn sneller 
gewend van b.v. een Mac of ST. 

Ook vinden we het erg jammer, dat Com¬ 
modore niet zelf de volledige support voor 
GEOS doet. Men heeft nu de deal met 
ontwikkelaar Berkeley Softworks, dat men 
gratis GEOS meelevert met de nieuwe C- 
64 (in semi-128 jasje), maar dat bezitters 
van oudere systemen 59 dollar moeten 
betalen voor hun GEOS kopie. Een onrea¬ 
listische prijs en een politiek, die kopiëren 
in de hand zal werken. Er zit overigens wel 
een stevige bescherming op de oriqinele 
GEOS disk. 


Desktop-aanpak 

Maar laten we nu eerst eens uitleggen, wat 
GEOS kan en wat het betekent voor de 
gebruiker. De zogenaamde applicatie-ma- 
nagers GEM, Windows en Top View ma¬ 
ken momenteel furore op andere compu¬ 
ters als de ST en de PC, overigens in 
navolging van de Apple Macintosh en de 
Xerox Star. Het gaat om gebruiksvriende¬ 
lijke muisgestuurde besturings-methodes, 
die via ikonen, vensters en trekmenu’s 
ingewikkelde DOS-operaties gemakkelijk 
en voor iedereen begrijpelijk maken. Om¬ 
dat men een en ander wel als een soort 
bureau op het beeldscherm heeft weerge¬ 
geven, noemt men dit ook wel de Desk-top 
aanpak. 

Binnen een soort venster op het beeld 
krijgt men het GEOS beeld, waarin de 
verschillende files staan, die op de schijf 
staan of in het geheugn actief zijn. Tot op 
heden moesten de C-64 en de C-128 een 
dergelijke werkomgeving ontberen en 
werden vele gebruikers door al die lastige 
diskoperaties als formatteren, kopiëren en 
het opvragen van het schijfdirectory afge¬ 
schrikt. Weliswaar troffen wij in een aantal 
hobbybladen ikonen en/of vensterlistings 
aan, het bleef echter behelpen en een 
slechte imitatie van het Mac-gemak. 

Berkely 

Softwarehuis Berkeley Softworks USA 
bracht daar verandering in. Haar Graphic 
Environment Operating System (GEOS) 
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transformeert de Commodore 64 of -128 
computer in een Desktop-achtig operating 
systeem. 

GEOS werkt als een communicatie-inter- 
face boven de DOS, die wel blijft bestaan 
en ook moest blijven bestaan, wilde men 
compatibel blijven met bestaande disk¬ 
drives en 64. Het Disk Operating Systeem 
is dus niet weg, maar blijft op de achter¬ 
grond aanwezig. GEOS biedt een nieuwe 
werkomgeving en functioneert als tolk tus¬ 
sen de nieuwe schermaanpak (Desktop) 
en het Commodore DOS. 

Behalve de gebruiksvriendelijkheid biedt 
GEOS nog een aantal andere voordelen 
zoals Turbo Disk Routines (een 5 tot 7 
maal zo snelle data-overdracht) en extra 
file-bewerkingen waarmee nu meer se¬ 
rieuze toepassingen binnen het bereik van 
de C-64 en C-128 komen. 

Desktop en DOS 

Wat je als Commodoregebruiker direkt 
aan GEOS opvalt is het grote gemak waar¬ 
mee de voorheen toch wat bewerkelijke 
diskoperaties worden uitgevoerd. Disk di¬ 
rectory, laden, wegschrijven, kopiëren en 
wissen zijn slechts een kwestie van met de 
muis het desbetreffende ikoon aanwijzen 
en inklikken. Het intypen van moeilijk te 
volgen opdrachten en met de toetsen mis¬ 
kleunen behoort daarmee tot het verleden. 
Mocht u niet over een muis beschikken 
(eigenlijk wel aan te raden), dan voldoet 
ook de joystick. Dat spaart in ieder geval 
tijdelijk zo’n prijzig knaagdier uit. 

Aan disk l/O versnelling zijn wij door de 
diverse in de handel verkrijgbare turbo- 
tools wel gewend. Een probleem van Tur- 
botools is echter dat de meeste commerci¬ 
eel verkrijgbare software, zonder deze te 
kopiëren en zelf te saven, niet te versnellen 
valt. Ook GEOS biedt een sneller DOS 
stuk, dat niet met voor het oude DOS 
geschreven programma’s werkt. 
Daarentegen biedt de GEOS-werkomge- 
ving echter wel aanknopingspunten voor 
een geheel nieuwe lijn GEOS-compatibele 
programmatuur. Datzelfde geldt voor 
GEM dat de uitwisselbaarheid van soft¬ 
ware tussen verschillende systemen mo¬ 
gelijk maakt. Behalve de hogere snelheid 
kan het DOS nu ook grotere datafiles aan. 
De bijgeleverde tektsverwerker GeoWrite 


Icons 



en het tekenpakket GeoPaint kunnen met 
gemak een oplossend vermogen van 80 
punten per inch op een A4-pagina op¬ 
slaan. Met GeoPaint zijn zelfs pagina’s van 
meer dan 70 Kbytes mogelijk! 

De GEOS-programma’s 

Het complete GEOS-pakket bestaat uit 
drie programma’s: 

De eigenlijke Desktop stelt de gebruiker 
in staat om schijven te formatteren en 
applicaties, Utilities en fonts (lettertypen) 
naar andere disks te verplaatsen. Bove¬ 
naan het beeldscherm bevindt zich de 
menubalk met de keuzemogelijkheden ge- 
os, file, edit, font en options. Daarnaast 
staat het op dat moment gebruikte pro¬ 
gramma. Onder deze menubalk staan het 
gebruikte venster met zijn ikonen en trek- 
menu’s. In de rechterbenedenhoek de 
printer en de vuilnisbak. 



”Deskacessoires” die tesamen met een 
applicatie op schijf staan zijn ook binnen 
deze applicatie bruikbaar. Datzelfde geldt 
voor -de verschillende fonts. Zo kunt u 
door eenvoudigweg te kopiëren nieuwe ' 
Utilities en fonts naar het systeem over¬ 
brengen. 

GEOS beschikt standaard over de ”des- 
kaccessoires” of hulpmiddelen calculator, 
notieblok, alarmklok, foto- en tekstalbums 
(ikonen gebruikt voor de datatransfer tus¬ 
sen de verschillende applicaties) en de 
preference manager. Dit laatste accessoi¬ 
re biedt de gebruiker de mogelijkheid om 
de systeemparameters voorgrondkleur, 
cursorkleur, achtergrondkleur, het pointe- 
rikoon, de cursorsnelheid, de klokgege- 
vens e.d. bij te stellen. Ook laten de des- 
kaccessoires en de fonts zich gemakkelijk 
door de Commodorebezitter veranderen. 
De deskaccessoires kunnen bij elke appli¬ 
catie bovenop de applicatie opgeroepen 
worden. Na gebruik verdwijnt het desbe¬ 
treffende accessoire weer naar de achter¬ 
grond. Stel u zit midden in de geoWrite 
tekstverwerker voor het opmaken van een 
nota. Nu wilt u met de calculator een aantal 
posten optellen. Kies dan de calculator- 
optie met de muis uit het GEOS pop up- 
menu en hup daar verschijnt het calcula- 
tor-venster. Uitzetten gaat via het active¬ 
ren van de "uitknop”. 
wm- GeoPaint is een uitgebreid graphics 



editing programma dat de operateur een 
groot aantal penselen, kleuren, fills en 
tools voor het maken van grafische docu¬ 
menten verschaft. Met dit programma zijn 
niet alleen fraaie tekeningen maar ook 
duidelijke kaarten en diagrammen moge¬ 
lijk. Met behulp van de foto- en tekstalbum 
deskaccessoires kunnen de gemaakte 
beelden van de ene naar de andere toe¬ 
passing gekopiëerd en ingepast worden. 
Zo kunt u perfecte layouts maken. 
wm~ GeoWrite is een krachtige tekstverwer¬ 
ker in de ”zie wat u krijgt”-stijl. Het monitor- 
scherm laat daarbij een exacte kopie van 
de latere printerlayout zien. Deze tekstver¬ 
werker geeft u de keuze uit de binnen 
GEOS beschikbare fonts, vet, schuin en 
onderstrepen. 



GEOS biedt de C-64-en C- 128-gebrui- 
ker GEM-achtige faciliteiten. Daarmee 
behoren lastige diskcommando’s en 
layoutoperaties tot het verleden en 
kunnen beginners direkt met deze ma¬ 
chines aan de slag . Het gebruik van 
GEOS is momenteel beperkt tot Berke - 
ley’s eigen compatibele pakketten. Of 
andere software-ontwikkelaars deze 
trend zullen gaan volgen valt echter 
nog te bezien. Niettemin krijgt u voor 
rond de 180 gulden een waardevole 
uitbreiding van uw C-64 of C-128. 
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DE ANTAGONISTEi 


EEN MICRO WORLD ADVEN TÜRE V( 

COMMODORE I 


HUNSTMATIGE 
INTELLIGENTIE 
op uw computer 


JohnKrutch 






J. van Die/LVolders 




180 praktische tips 
en programma’s 


Kunstmatige intelligentie 
op uw computer. 

Wanneer computers -ook de Commodore- 
eigenschappen lijken te vertonen die nor¬ 
maal alleen aan het menselijk individu wor¬ 
den toegeschreven, wordt gesproken over 
kunstmatige intelligentie. 


Met hulp van een computer en dit boek 
kan er een groot aantal experimenten wor¬ 
den uitgehaald die de schijn wekken, dat 
de computer beschikt over een dergelijk 
type intelligentie. 

De bekende klassieker ’ELIZA’ is hier nog 
steeds het beste voorbeeld van. Wat zou je 
bijvoorbeeld denken, als de C64 je plotse¬ 
ling vervelende vragen begon te stellen als 
: waar was je gisteravond, of waarom sla je 
jouw hond ? 

Om enigszins vertrouwd te raken met ver¬ 
schillende begrippen in deze materie 
wordt de lezer voorzichtig ingeleid in het 
gebied van de kunstmatige intelligentie. 
Het boek besluit met een compleet Basic- 
programma, vergezeld van aanwijzingen 
over de veranderingen die moeten worden 
aangebracht voor de diverse soorten com¬ 
puters. Het is beslist geen boek, waarbij 
stap voor stap een methode wordt uitge¬ 
legd. Wel bijzonder interressant voor hen, 
die meer willen weten over de filosofische 
achtergrond van de relaties tussen mense¬ 
lijke wezens en machines. 

Titel: Kunstmatige intelligentie op uw 

computer 

Auteur: John Krutch 

Uitgever: Kluwer technische boeken b. v. 

Prijs:28,50 ISBN: 902011 7718 


Praktijkboek voor de C-64 

Om de slechte documentatie die stan¬ 
daard met de C-64 wordt meegeleverd wat 
tegemoet te komen, heeft Kluwer zo’n 3 
jaar na de introduktie van dit apparaat 
gemeend te moeten komen met een prak¬ 
tijkboek voor de C-64. 

Er zijn in dit boekje heel wat tips te vinden, 
die in de loop der tijd door de schrijvers 
Volders en Van Die zijn verzameld. Het is 
een handzaam, 150 pagina grote pocket, 
waarin o.a. routines te vinden zijn, veelal 
met hulp van POKE en PEEK die je helpen 
bij het machinegericht programmeren. Zo 
vinden we hulp bij het APPENDEN van 
programma’s, het beveiligen van LIST, di¬ 
verse (nieuwe ?) soorten van INPUT, GO¬ 
TO met variabelen, snellere verwerking 
van IF..THEN met extra’s en ga zo maar 
door. 

Een leuk boekje, zeker om eens kennis van 
te nemen en te gebruiken waar je denkt dat 
een applikatie past in je eigen programma¬ 
tuur. 

De listings zijn zowel kort als krachtig, en 
gezien de uitgever zal alles wel voldoende 
zijn gecontroleerd voordat tot deze publi¬ 
catie is over gegaan. 

Titel: 

Praktijkboek voor de Commodore 64 
: Auteurs: J. van Die, L Volders 

Uitgever: Kluwer technische boeken b. v. 

Prijs: 24,50 ISBN: 902011 8323 


De Antagonisten 

Als subtitel lezen we op de cover van het 
Nederlandstalige boek ”De Antagonisten” 
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: een micro-world adventure voor de C-64 
Dit van origine engelse werk springt er qua 
inhoud helemaal tussenuit. Niet direkt om¬ 
dat die zoveel beter zou zijn dan allerhande 
andere computer-boeken, maar wel ge¬ 
heel anders! Hal Renko en Sam Edwards 
(pseudoniemen voor rasechte Hollanders) 
hebben naar een verhaal van Hermie Her- 
mens een C-64 adventure in Basic ge¬ 
schreven. Dit geheel is compleet met het 
originele scenario in boekvorm vastge¬ 
legd. Je kunt nu zowel op de computer het 
spel spelen als in het boek de ’wherea- 
bouts’ van de achtergronden te weten 
komen. Op zich leest het boek als een SF- 
roman, waarin een hele stoot rode-rozen- 
romantiek van kleine meisjes en grote mie¬ 
ren en andere monsters. Ook meende ik 
hier en daar de nodige plantkundige infor¬ 
matie te bespeuren. Kortom een compleet 
nieuwe benadering van een adventurespel 
met een doel, waarbij de sleutel van de 
oplossing in de geschreven teksten moet 
worden gezocht. De listing van het Machi¬ 
netaal programma beslaat nogal wat ruim¬ 
te en kost navenant veel tijd om in te typen. 
De auteurs helpen hierbij waar ze maar 
kunnen. Zo hebben ze bijvoorbeeld een 
indeling gemaakt, waardoor de lezer/spe¬ 
ler in de tijd van zeven dagen in staat is de 
hele listing foutvrij in de C-64 te krijgen. 
Het boek verdient z’n plaats in deze ru¬ 
briek vanwege de originele benadering 
van deze materie. 


Titel: 

Auteurs: 

Uitgever: 

Prijs: 25 r 


De Antagonisten. 
Edwards en Renko. 

Addison-Wesley 
ISBN: 90 6789 0197 
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De C-64 is zijn nieuwe jasje is nu al 
een verkoop- succes, al is het model 
officieel nog niet te koop. Het grijze 
circuit heeft echter al grote aantallen 
machines naar ons land gehaald en 
die gaan als warme broodjes over de 
toonbank. 


FACELIFT 64 



De nieuwe 


C ommodore heeft al meer ge¬ 
schermd met "nieuwe” C-64's, 
maar bleef uiteindelijk toch altijd 
trouw aan de uitvoering, die nu al 
in meer dan 6 miljoen stuks ver¬ 
kocht is. Tot vorige maand, toen liet 
men in Chicago voor het eerst een 64 in 
een nieuw jasje zien. 

De nieuwe C-64, ook wel als 64-C aange¬ 
duid, lijkt natuurlijk sprekend op de 128. 
Dezelfde fraaie en moderne vorm, het ziet 
er toch wel beter uit dan de ronde 64, die 
qua uiterlijk nog uit de VIC-20 dagen 
stamt. Men heeft er alleen de numerieke 
toetsen afgelaten, want enig verschil moet 
er natuurlijk wel blijven. Bovendien wilde 
men geen enkele wijziging in het innerlijk 
aanbrengen, om de compatibiliteit met be¬ 
staande software en randapparatuur niet 
aan te tasten. Dat is eigenlijk wel jammer, 
want zonder al te veel problemen had men 
er nu toch wel eens een RS-232 of een 
parallel Centronics printer-aansluiting op 
kunnen zetten. 

V erbet er ingen 

De verbeteringen moeten dus niet van de 
hardware komen, afgezien van de buiten¬ 
kant dan en de iets betere toetsen, 66 in 
totaal. De software-upgrade, die men heeft 
bedacht, is GEOS, waaraan we een apart 
artikel wijden in deze Cl. Dit operating 
systeem, dat als een soort schaal of ”shell” 
om de oude DOS 2.0 heen zit, grijpt overi¬ 
gens niet in in de DOS 2.0 structuur. Het is 
een extra laag, die gebruiksvriendelijker is, 
makkelijker werkt, muisbesturing toelaat 
en de 64 op het niveau van de duurdere 16 
bits machines brengt. GEOS is ook bruik¬ 
baar op de bestaande 64’s. 

Nieuwe diskdrives 

Een ander nieuwtje in Chicago was de 
presentatie van een tweetal nieuwe disk¬ 
drives. In de eerste plaats de 1541 C, 
hetgeen in wezen de vertrouwde 1541 is in 
een kastje, dat sprekend lijkt op dat van de 


1570 en 1571 diskdrives. De specificaties 
zijn : 170 KB aan data, 35 tracks, gebruikt 
SSDD disks, serieel CBM interface, met 
eigen 6502 processor, 2 KB RAM en 16 KB 


Naast diskdrives toonde men ook nog een 
512 KB (!) geheugenuitbreiding voor de 
128 en een prototype van iets dergelijks 
voor de 64 en een modem volgens ameri¬ 



De 1541 C diskdrive. 

ROM. De Data transfer gaat met een snel¬ 
heid van 400 Bytes per seconde, en dat is 
de oorzaak van het redelijk langzaam wer¬ 
ken van de 1541 en 1541 C. 

Nog niet echt uitgebracht, maar als proto¬ 
type getoond was de 1341, een diskdrive 
voor de 64 en 128, die werkt met 3,5 inch 
schuifjes. Erg modern, maar aangezien de 
1541 in zulke grote aantallen verspreid is, 
niet erg zinvol. Tenzij men bij CBM uitein¬ 
delijk toch weer eens een portable zou 
willen ontwikkelen. 


kaanse standaards, waar we hier niet veel 
aan hebben. 

1802 monitor 

Ook op monitor gebied is er wat nieuws en 
wel de 1802 kleuren monitor, typisch ge¬ 
richt op de 128 markt. Met zowel een 40- 
koloms (composite color) kleuren mode 
als een 80-koloms (composite monochro¬ 
me) monochrome stand kan men dan de 
meest voorkomende toepassingen heel 
goed aan. Deze 13 inch monitor is voorlo- 
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pig nog NTSC, maar aan PAL versies 
wordt gewwerkt. Aansluitingen voor com¬ 
posiet, luma/chroma, composiet mono¬ 
chroom. Er zit ook een luidspreker in de 
monitor. 

Quantum 

In Amerika zijn al ongeveer 20.000 CBM 
gebruikers aangesloten op de Quantum 
telecommunicatie dienst, die speciaal voor 
Commodore is opgezet. Quantum-link 
heet het software pakket ervoor en het 


wordt als extra gratis meegeleverd met de 
nieuwe C-64 C, in de VS dan. Met Q-link, 
en een modem, kan men allerlei diensten 
bereiken, maar ook electronic mail verstu¬ 
ren, literatuuronderzoek doen, program¬ 
ma's downloaden en spelletjes spelen. Q- 
link werkt niet volgens een videotex proto¬ 
col, zoals de nederlandse VIDITEL, maar is 
gebaseerd op normale ASCII tekens. 
Doordat men ook de hogere ASCII tekens 
gebruikt op dezelfde manier als de Com¬ 
modore, kan men ook kleur en grafische 


beeldjes overdragen. Een heel nieuw en 
verrassend spel, dat men via Q-link met 
anderen op andere plaatsen kan spelen, is 
Habitat, mede ontwikkeld door Lucas 
Films, het is een interactief, multi-player 
adventure, waar men de andere spelers 
kan ontmoeten in een soort doolhof en 
echte berichten met ze kan uitwisselen. De 
Quantum dienst kost ongeveer 25 gulden 
per maand, met onbeperkte aansluitduur 
voor de meeste toepassingen en wat meer 
voor speciale diensten. • 
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LOTUS 

1-2-3 AANBIEDING 


JI7 datavisie 

/ J U V software & informatie - services 


Wanneer u echt effectief wilt werken met een PC, 
is daarvoor de juiste hardware en vooral de juiste 
software nodig. 

Datavisie vindt, dat u daarvoor het beste met 
standaard software kunt beginnen en later daar 
gespecialiseerde pakketten bij moet nemen. 


Lotus 1-2-3 is het meestgebruikte spreadsheet 
pakket en wij kunnen u een beperkt aantal van deze 
pakketten in de originele versie (la) nu aanbieden 
tegen een echte superprijs. Voor ƒ 600,- (ex BTW) 
leveren wij u 1-2-3 (versie la) in originele verpakking 
met engelse handleiding en back-up systeemdisk. 
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Basic Min 


Een rubriek van Nico Baaijens me 



e hebben een klein jubileumpje te vieren: zojuist is 
het vijfhonderdste BASIC-miniatuurtje op mijn 
overvolle bureau gedeponeerd. Tijd dus om heel 
even te evalueren. 


In de roemrijke begindagen van Commodore Info probeerde ik 
elke inzending te plaatsen. Dat was niet vol te houden. Het 
aanbod werd te groot voor deze twee pagina’s, veel inzendingen 
vielen in herhalingen, sommige waren te lang en andere liepen 
gewoon niet. De vele inzendingen waren over het algemeen van 
een behoorlijk hoog niveau. Opvallend veel inzendingen komen 
uit België. Ruwweg kunnen de bekeken miniatuurtjes in twee 
soorten worden verdeeld: toepassings- en systeemprogramma’s. 
De toepassinkjes zijn vaak zeer bruikbaar als subroutines voor 
grotere programma’s: speciale effecten voor games, snellere 
sorteermethoden, enzovoort. De systeemprogramma’s hebben 
veel nieuwe en soms zonderlinge POKE ’s voor de C-64 opgele¬ 
verd naast allerlei trucs om randapparaten aan te sturen. 

Een ding moet me nog van ’t hart. Vrij veel inzendingen KUNNEN 
niet eens getest worden. Ze zijn te slordig geschreven en onlees¬ 
baar of soms ook geprint met een lint waar geen inkt meer in zit. 
Hollandse zuinigheid, vermoed ik, maar dan toch zonde van de 
geplakte postzegel. 

En nu: over tot de orde van de maand. 


van Hanno Pondaag uit Oldenzaal. Ze ontstaan door waarden 
tussen 0 en 255 te POKE n in adres 56325 (regel 40). De routine 
wordt uitgezet met: POKE 49154,49:POKE 49159,234:SYS49152 
en wordt weer actief met: POKE 49154,13:POKE 
49159,192:SYS49152. 


10 FORK=0TO21:READA:POKE 49152+KANEXT 

20 FORN=0TO24:POKE 54272 + N,0:NEXT 

30 POKE 54296,15:POKE 54277,136:POKE 54278,240:POKE 

54276,33 

40 INPUT”(0-255)”;A:POKE 56325,A:SYS49152:GOTO40 
50 DATA 120,169,13,141,20,3,169,192,141,21,3,88,96 
60 DATA 173,18,208,141,1,212,76,49,234 


Cursor 

Bart Oosterluick uit Tremelo, België, vond een handige methode 
om het tempo van de knippercursor zelf te bepalen: 


POKE 56325,X 


Als X een getal is tussen 0 en 61 wordt het knippertempo 
verhoogd. Met X tussen de waarden 63 en 255 wordt dit tempo 
lager. De normale of default-knippersnelheid is: X=62. 


Beveiliging 

Programma’s kunnen met een software-slot worden vergrendeld 
met het routinetje van R. Prak uit Borne. Regel 40 biedt een goede 
beveiliging tegen listen, zodat het wachtwoord verborgen blijft. 

40 POKE 774,0:POKE 775,0 
50 IN PUT” NAAM EN CODE”;A$ 

60 IFA$ = ”R PRAK 5497’THEN 100ELSE70 
70 PRINT ”U BENT NIETTOEGELATEN TOT HET PROGRAMMA” 
80 FORA=1TO2000:NEXTA 
90 NEW 

100 PRINT ”U BENT TOEGELATEN TOT HET PROGRAMMA” 


Brandende vraag 

De heer H.J.H. Geraats uit Weert vraagt of het mogelijk is om met 
een miniatuurtje het C-64-scherm geschikt te maken voor 80 
tekens per regel in plaats van 40. Hij wil dat graag om beter te 
kunnen tekstverwerken. Volgens mij is dat onmogelijk. Voor 
professionele tekstverwerking zal toch naar een grotere computer 
moeten worden gekeken. De PC is er bij uitstek voor geschikt. 

Rekenkracht 

Er zit veel rekenkracht in de C-64, getuige het voor zichzelf 
sprekende miniatuurtje van Philippe Leybaert uit het Belgische 
Zelzate: 


Karaktergenerator 

Arnold Nijmeijer uit Geesburg maakte een slim programmaatje 
om het lange wachten bij het verplaatsen van de karaktergenera¬ 
tor van ROM naar RAM aanzienlijk te bekorten. 

1 POKE 53272,29 

5 FORI=0TO70:READQ:POKE 5200+1,Q:NEXT 
10 POKE 56334,0:POKE 1,51 
20 SYS5200 

30 POKE 1,55:POKE 56334,1 

100 DATA 162,0,189,0,208,157,0,48,232,240,3,76,82,20 
110 DATA 162,0,189,255,208,157,255,48,232,240,3,76,96,20 
120 DATA 162,0,189,254,209,157,254,49,232,240,3,76,110,20 
130 DATA 162,0,189,253,210,157,253,50,232,240,3,76,124,20 
140 DATA 162,0,189,252,211,157,252,51,232,240,3,76,138,20,96 

Audio 

Zonderlinge geluidseffecten worden verkregen met de miniatuur 


10 INPUT’HOEVEEL GEGEVENS”;N:DIMA(N) 

20 P=1:FORA=1TON:IN- 

PUTX;S=S+X:V=V+X*X:P=P*X:H = H + 1/X:NEXT 
25 RG=S/N:VA=V/N-RG*RG:MG = P f (1/N): HG =N/H: 

KG=SQR(V/N) 

30 PRINT ”REKENKUNDIG GEMIDDELDE:”;RG 
40 PRINT "MEETKUNDIG GEMIDDELDE:”;MG 
50 PRINT "HARMONISCH GEMIDDELDE:”;HG 
60 PRINT "KWADRATISCH GEMIDDELDE:”;KG 
70 PRINT :PRINT ’’VARIANTIE:”;VA:PRINT 
80 PRINT ”STANDAARDAFWIJKING:”;SQR(VA) 

Tekstinvoer op de C-16 

Tekst kan het best in de C-16 worden gevoerd met het miniatuur¬ 
tje van Roeland Merks (13) uit Nijmegen. Daarmee kunnen dan 
ook komma’s en dubbele punten worden ingevoerd wat met het 
INPUT-commando niet gaat. Een voordeel is ook dat de in de 
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stringvariabele opgeslagen tekst na NEW en RESET in het 
geheugen behouden blijft. 

1 A=1536 

2 IFPEEK(A) = 13THEN 4 

3 A$=A$+CHR$(PEEK(A)):A=A+1 :G0T02 

4 PRINT A$ 

Tweemaal Cl28 

Twee aardige miniatuurtjes voor de Cl28 kwamen van Richard 
Moeskops uit Mierde (NB). De eerste verandert de karakterset: 

10 FAST:BANK14:FORX=0TO4096:POKE 12288 

+X,PEEK(53248+X)AND60:NEXT:SLOW:POKE 2604,29 

Het tweede laat vogelgeluidjes horen, waarbij elke toetsaanslag 
een nieuwe variatie oplevert. Het programmaatje wordt gestopt 
met de pijl naar links. 

10 DO:GETKEYA$:SOUND1,65535,20,0,50000,ASC(A$) 
*10Ö,0:LOOP UNTIL A$=”(PIJL NAAR LINKS)” 

Systeemonderhoud 

Geen enkele computeraar, die met floppies werkt, ontkomt aan 
systeemonderhoud: het opruimen van overtollige bestanden en 
programma’s op schijf. Voor Leo J. de Rijk uit Amsterdam een 
vervelende bezigheid. Hij schreef een programmaatje waarmee 
dat beter gaat. Na het laden verschijnt de cursor plus de directory. 
Als de cursor op een overtollig bestand of programma wordt 
gezet, wordt de file ’gescratcht’. Na gedane systeemzaken wordt 
na het ingeven van ’n’ de hele schijf gevalideerd. 

100 OPEN15,8,15,”10”:OPEN2,8,2,” 

110 T=18:S = 1:PRINT ”(SHIFT/CLR HOME)” 

120 PRINT #15,”U1”;2;0;T;S 

130 PRINT #15,”B-P”;2;0 

140 GET#2,X$:IFX$=””THEN X$=CHR$(0) 

150 T=ASC(X$) 

160 GET#2,X$:IFX$=””THEN X$ = CHR$(0) 

170 S=ASC(X$) 

180 FORX=0TO7 

190 PRINT #15,”B-P”;2;X*32+2 

200 GET#2,X$:IFX$=””THEN X$=CHR$(0) 

210 IFASC(X$)=0THEN 320 
220 PRINT #15,”B-P”;2;X*32 + 5 
230 FF$=”” 

240 FORY=0TO15 

250 GET#2,X$:IFX$=””THEN X$=CHR$(0) 

260 IFASC(X$)=160THEN 290 
270 FF$=FF$+X$ 

280 NEXTY 
290 REM 

300 IFA=0THEN A=1:PRINT FF$:GOTO320 
310 A=0:PRINT FF$ 

320 NEXTX 

330 IFToOTHEN 120 


345 OPEN4,8,15 

400 POKE 19,64:INPUT”ZET CURSOR OP TE SCHRAPPEN 
NAAM 4- RETURN”;S$:POKE 19,0 
420 PRINT #4,”S:,”+S$ 

430 CLOSE4 

435 POKE 19,64:INPUT”NOG MEER ”;J$ 

436 IFJ$=”J”THEN POKE 19,0:GOTO345 

437 IFJ$=”N”THEN POKE 19,0:PRINT ”SCHIJF WORDT GEVA¬ 
LIDEERD ” 

438 OPEN4,8,15:PRINT #4,”V” 

450 CLOSE1 :CLOSE15:PRINT ”(SHIFT CLR/HOME)” 

2000 REM SAVE”@:DIR 

2100 OPEN1,8,0,”$”:GET#1 ,A$,A$ 

2200 GET#1,A$,A$:IFA$=””THEN CLOSE1:END 
2300 GET#1 ,A$,B$:PRINT ASC(A$+CHR$(0))+256 

*ASC(B$+C H R$(0)); 

2400 GET#1 ,A$:IFA$=’”THEN PRINT :GOTO2200 
2500 PRINT A$;:GOTO2400 
2600 END 

Rare dingen 

Sommigen scheppen er een sadistisch behagen in om de C-64 de 
mist in te sturen en liefst nog ”op z’n bek” te krijgen. Rob Muller uit 
Haarlem is daar een pikeur in: 

POKE 104,1. 

De computer kan niet meer rekenen. Met 73-1-3 weet hij geen 
raad. 

POKE 806,0 

Een andere manier om het scherm te wissen. 

POKE 234,1 

gevolgd door enkele malen d + RETURN deelt het scherm 
doormidden en laat rare dingen gebeuren. 

POKE 646,1 tot en met 31 

doet de cursor van kleur veranderen. 

POKE 648,2 

brengt de C-64 volkomen op tilt. Niets doet het meer. Alles is weg 
en alleen de aan/uit-knop kan hem weer uit zijn coma halen. 

Simon 

Kurt Claeys (15) uit het Belgische Maldegem stuurde tien minia¬ 
tuurtjes voor Simons BASIC in. Dan moet er altijd één raak zijn, 
dacht hij. 

10 COLOUR 1,1:HIRES 0,1:MULTI 0,2,6 
20 ARC 60,100,194,346,5,30,30,1 
30 ARC 60,100,190,350,5,40,45,1 
40 LINE 54,72,54,56,1 :LINE 54,128,54,144,1 
:PAINT 25,100,1 

50 LINE 55,73,80,73,2:LINE 55,73,55,91,2 
60 LINE 55,91,70,91,2:LINE 70,91,80,73,2 
70 PAINT 56,74,2 

80 LINE 55,127,80,127,3:LINE 55,127,55,109,3 
90 LINE 55,109,70,109,3:LINE 70,109,80,127,3 
100 PAINT 56,126,3 

120 TEXT 10,15,”- COMMODORE -”,1,3,8 
130 GOTO 130 
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Vragen van Gebruikers. 



Ook nu weer gaat Jan Bodzinga in 
op de problemen van onze lezers. 
Zijn rubriek blijkt zeer populair ; maar 
laat u dat niet weerhouden uw 
vragen of opmerkingen in te sturen. 
Ook tips en handigheidjes zijn 
welkom .. 


Toen de C-128 een jaar geleden in Neder¬ 
land op de markt verscheen waren er hier 
en daar nog wel wat lichtpunten, waardoor 
dit machien nog kans had op een redelijke 
toekomst. Een vereiste daarbij was wel, 
dat de C-128 in grote aantallen moest 
worden verkocht. Helaas blijven de ver¬ 
koopcijfers van deze computer onder¬ 
maats. Als gevolg hiervan wordt er ook 
weinig of geen bruikbare software voor 
deze machine ontwikkeld, waardoor er 
weer minder C-128’ers over de toonbank 
gaan, waarmee we onvermijdelijk in de 
neergaande spiraal van een verloren ont¬ 
werp zijn terecht gekomen. 

Als eigenaar van de C-128 heb je jammer 
genoeg niet zoveel aan deze wetenschap. 
Een klein geluk bij deze tragedie is het feit, 
dat de C-128 min of meer in staat is om ook 
’echte’ CP/M software te runnen. Daarom 
is het wenselijk voor alle serieuze gebrui¬ 


kers zoveel mogelijk van deze (inmiddels 
ook verouderde) software te pakken te 
krijgen, waardoor er nog plezier aan de C- 
128 kan worden beleefd. 

In CP/M zijn voldoende goede pakketten 
geschreven, zoals Wordstar en DBase II, 
waarmee op een redelijk niveau in combi¬ 
natie met de Commodore telg te werken is. 
Een probleem daarbij is het feit, dat de 
1570/71 diskdrive wel wat ’Commodore- 
vreemde’ CP/M diskformaten kan lezen en 
bewerken, maar daarbij in het geheel niet 
de verwerkingssnelheid haalt, die een nor¬ 
male 8-bits CP/M computer kenschetst. 
Als enige blijft dan over de CP/M software 
(illegaal) te kopiëren op een Commodore 
CP/M diskette, maar daar is ofwel een 
tweede drive ofwel een vrij ingewikkelde 
softwareprocedure voor nodig. Bovendien 
is het, zoals gezegd, illegaal en dus verbo¬ 
den. Al met al niet de meest ideale situatie, 
maar als je een C-128 hebt zul je er mee 
moeten leren leven. 

Cassette-probleem 


Marco v. d. Weg uit Dordrecht heeft een 
probleem met Zn cassetterecorde of 
z’n 64. Als hij de 64 aan zet, gaat 
meteen de motor van z’n recorder lo¬ 
pen, na het laden van een programma 
gebeurt er niets meer met de recorder. 
Waar ligt dit aan ? 


De oorzaak moet m.i. worden gezocht in 
de C-64. Dat de datasette goed werkt 
wordt bewezen door het feit dat er wel een 
programma mee naar binnen kan worden 
gelezen. Waarschijnlijk moet de fout wor¬ 
den gezocht in de l/O van de 6510. Bij de 
koude start van de C-64 blijkt al, dat er iets 
niet helemaal in orde is, omdat de dataset- 
temotor gaat lopen. Als kleine test kun je 
nog als commando intypen POKE 1, 
PEEK(1) OR 32 waarop de recordermotor 
moet gaan spinnen, terwijl POKE 1, 
PEEK(1) AND 223 de cassettemotor stopt. 

Software van C-16 naar C- 
128 


N.A.de Neef heeft pas een C-128 ge¬ 
kocht en wil nu graag een paar van z’n 
meest geliefde C-16 machinetaal spel¬ 
len overzetten naar C-128 adressen. 


Hoewel de C-16 en de C-128 beide het 
merk Commodore dragen is het een goed 
gebruik bij deze firma, dat hun ontwerpen 
op geen enkele manier ’upwards compati¬ 
ble’ zijn. Dit wil in de praktijk zoveel zeggen 
als : koop je een andere Commodore, dan 


koop je ook nieuwe software, want de 
oude programma’s kun je niet meer ge¬ 
bruiken. 

Nu bestaan er wel wat uitzonderingen op 
deze regel. Eén ervan is de pure Basic- 
listing. Zolang er geen PEEKS, POKES, 
SYS-opdrachten, e.d. in voorkomen is er 
geen probleem om ze ook op een nieuwer 
type Commodore te laten werken. Anders 
wordt het helaas, als dit wel het geval is. 
Om in het geval van de vragensteller de 
machinetaal-programma’s naar C-128 lis- 
tings om te zetten, moet bijna het hele 
programma worden herschreven, omdat 
tussen deze twee machines nogal wat 
verschillen bestaan. Om er een paar te 
noemen, andere configuratie van l/O, ver¬ 
schillende geheugengebieden voor 
scherm, kleur en bitmapping, andere routi¬ 
nes voor het aansturen van sprites en ga 
zo maar door. Kortom je kunt nog beter 
aan de hand van een bestaand algorithme 
een nieuw programma schrijven dan een 
C-16 listing voor de C-128 (MT) gaan her¬ 
schrijven. 

Compilers 


Er blijkt nogal wat verwarring te be¬ 
staan over het nut en het gebruik van 
compilers. J.F. Carrière uit Geldrop is ai 
een tijd lang op zoek naar een compiler, 
die ook met cassette kan werken, en 
dan ’t liefst ook nog Simons Basic 
begrijpt 


Een compiler is een programma, dat is 
bedoeld om bestaande programma’s die 
geschreven zijn in een hogere taal, zoals 
bijvoorbeeld Basic te kunnen omzetten 
naar een soort machinetaal. Dit wordt door 
de ene compiler beter uitgevoerd dan door 
de andere, maar in het algemeen komt het 
erop neer, dat alle Basic programma’s 
nadat ze zijn 'gecompileerd’ veel sneller 
werken en effectiever met het beschikbare 
geheugen omgaan. 

Het werken met de compiler is voor de 
computer tamelijk complex. Er moet nogal 
wat data worden verwerkt. Daarom is het 
zo, dat de meeste compilers het liefst een 
floppy drive hebben om gegevens tijdelijk 
op te slaan. Maar er zijn ook enkele een¬ 
voudigere compilers, die min of meer het¬ 
zelfde bereiken, en slechts een datasette 
nodig hebben. Deze laatste werken tijdens 
het compileren veel trager, maar het uitein¬ 
delijke resultaat hoeft hier niet a priori 
onder te lijden. Wat betreft het inbouwen 
van eigen commando’s, zoals Simons Ba¬ 
sic of een zelfgebouwde ’wedge’, kun je 
alleen maar stellen, dat dit geheel compi- 


CP/M Software voor C-128 


Dat de C-128 een steeds grotere hoe¬ 
veelheid gebruikers krijgt, kunnen we 
merken aan de toename van vragen en 
reacties over dit apparaat. Of deze 
vermeerdering een constante relatie 
houdt met het aantal verkochte appa¬ 
raten is niet bekend, feit is dat kennelijk 
lang niet iedereen probleemloos met 
het apparaat overweg kan. 

Van meerdere lezers krijgen we verzoe¬ 
ken om inlichtingen over ’betere’ soft¬ 
ware, waarmee de C-128 z’n waarde 
zou moeten bewijzen. Zo vraagt de 
heer H.M.Rademakers uit Weesp, of er 
geen CP/M tekstverwerker c.q. data¬ 
base bestaat, die op de C-128 kan 
worden gebruikt. Hij beschikt over Su¬ 
perscript 128, maar is er niet zo tevre¬ 
den over. 


19 





ler-afhankelijk is. De ene compiler zal deze 
Vreemde’ opdrachten onvertaald meene¬ 
men en in de objectkode even ’traag’ 
verwerken, terwijl de andere bij het eerste 
Simons’ Basic commando dat hij ontmoet 
met een PROGRAM ERROR zal stoppen. 
De specificaties van de diverse compilers 
zijn hier echter duidelijk genoeg over. Tot 
slot nog een opmerking over cassette- 
gebruik. Het is heel goed mogelijk, om met 
hulp van een floppy-drive en een disk- 
compiler programma’s te compileren die 
uitsluitend geschikt zijn voor gebruik met 
een datasette. De manier waarop de ge¬ 
compileerde ’object-versie’ van een pro¬ 
gramma tot stand komt heeft dus niets te 
maken met het uiteindelijke gebruik. 

128 en CP/M 


Een brief van mevr. Keukens-v.d Mei 
bevat het volgende probleem voor: Ze 
beschikt over een C-128 en een op 
NewBrain geformatteerde schijf met 
een paar software-applicaties, die in 
principe goed werken op de C- 128. Het 
probleem is echter de trage verwer¬ 
kingssnelheid van de C-128 ten opzich¬ 
te van de normale CP/M computers. 


Zoals reeds eerder in deze rubriek is opge¬ 
merkt, is de C-128 een computer die niet 
bij uitstek geschikt is om als CP/M machi¬ 
ne te gaan gebruiken. Wil men dit toch 
gaan doen - om begrijpelijke redenen - dan 
is het zaak om de configuratie C-128, 
software en diskformat optimaal te maken, 
waarmee de meest efficiënte manier van 
werken wordt bereikt. De 1570/71 disk¬ 
drive kan namelijk wel diverse andere CP/ 
M formaten lezen en verwerken, maar 
heeft daarbij het nadeel, dat de verwerking 
daardoor veel trager verloopt, dan met 
Commodore-formaat het geval is. In het 
onderhavige geval betekent dit, dat de 
NewBrain disk moet worden gekopieerd 
naar een andere diskette, die eerst op 
Commodore-CP/M formaat is geïnitiali- 
seerd. U moet in geen geval de bestaande 
schijf voorzien van dit Commodore-for¬ 
maat, omdat op die manier alle gegevens 
van de diskette zullen worden verwijderd. 
Om (niet-beveiligde) software voor eigen 
gebruik te kopiëren zijn er twee mogelijk¬ 
heden. De eerste en gemakkelijkste is het 
PIPPEN van de bestanden naar een ande¬ 
re drive. In principe heeft u daar twee 
diskdrives voor nodig, al is er inmiddels 
ook wel het één en ander op de markt 
waarmee de tweede drive softwarematig 
kan worden gesimuleerd. Dit soort pro¬ 
grammatuur circuleert meestal op de di¬ 
verse (hobby)computerbijeenkomsten 
maar is zover ik weet niet in de handel. 
De tweede manier om CP/M software te 


kopiëren kan met hulp van slechts één 
diskdrive (1570/71) en het standaard CP/ 
M programma DEBUG. Dit programma 
wordt vaak standaard bij de C-128 gele¬ 
verd, of kan worden besteld bij Commodo¬ 
re Nederland. Met behulp van de nodige 
kennis en de handleiding van dit program¬ 
ma (DEBUG) is het mogelijk de software 
vanaf de NewBrain-disk in te lezen en 
vervolgens op de Commodore-disk weg te 
schrijven. 

Leren programmeren 


Fred Ebben heeft ons regelmatig be¬ 
stookt met vragen over allerhande 
complexe en gemakkelijke Basic op¬ 
drachten en trucs. Hij schrijft daarbij, 
dat de klok voor hem heeft geluid, maar 
de klepel is door hem nog nooit gevon¬ 
den. Hoe hij het ook probeert, niets lukt 
Waar kan dit nu aan liggen. 


Fred, troost je, je bent zeker niet de enige 
die het programmeren met moeite en veel 
vergeefse pogingen onder de knie moet 
krijgen. De vragen die je stelt zouden een 
heel boek vol met antwoorden nodig heb¬ 
ben, omdat het ene probleem weer een 
ander oproept, dat moet worden uitge¬ 
legd. De beste manier om het maken van 
leuke Basic programma’s onder de knie te 
krijgen is, om een boek te kopen, waarmee 
je stap voor stap wordt ingewijd in de 
toverkunsten van Basic. Je kunt ook onze 
cursus Basis Basic gaan bestuderen. Ver¬ 
der kun je allerlei korte en lange listings uit 
ons blad gaan intypen, en daarbij werkelijk 
regel voor regel zelf bekijken wat er nu in 
feite gebeurt. Leren programmeren is nu 
eenmaal niet hetzelfde als leren fietsen. Je 
komt er nooit mee aan een eind. Maar 
voordat je zover bent, zul je eerst werkelijk 
van onder af moeten beginnen. Daarbij 
moet je er ook om denken, dat je heel 
nauwkeurig bent in het intypen van de 
opdrachten. Want iedere punt en elke 
komma hebben voor de Commodore een 
betekenis. En de gepubliceerde listings 
zijn zo vaak gecontroleerd, dat de fouten 
die er in komen in de meeste gevallen door 
jou bij het overschrijven zijn gemaakt. 

Printers en modules 


Evert van Leuveren uit Amersfoort 
heeft problemen met z’n printer. Hij 
bezit een parallelle Epson printer en 
probeert nu al een poos om deze met 
hulp van de KCS module aan te sluiten 
op de seriele poort van de C-64. 


Evert, zoals je hebt gemerkt, dit wil niet. De 
aansturing van de diverse printers is in 
tweeën te verdelen. Aan de ene kant heb je 


de seriële printers, zoals o.a. de Commo¬ 
dore printers, terwijl er ook parallel printers 
bestaan. Deze laatste, waaronder de Ep¬ 
son MX 82F, die jij hebt, werken met een 
parallelle overdracht van gegevens. Dat 
betekent, dat alle 8 bits van een byte in één 
keer over de bus naar de printer worden 
gestuurd. Daarvoor heb je dus minstens 8 
draden nodig, de seriële printers krijgen de 
bits in serie, dus achter elkaar, aangele¬ 
verd. In feite kan daarvoor met één draad 
worden volstaan. De C-64 beschikt stan¬ 
daard over een seriële uitgang voor printer 
en floppy-drive. Commodore heeft deze 
overdracht gekozen uit kostenoverwegin¬ 
gen. Om nu een parallel printer aan te 
sluiten aan de C-64 heb je op z’n minst een 
interface nodig. Jij beschikt daarvoor over 
een KCS module. Daarnaast zul je aan de 
hand van de gegevens van de cartridge, de 
printer moeten aansluiten aan de user- 
poort, in plaats van de seriële bus, waarop 
de diskdrive kan worden aangesloten. Als 
de ’handshaking’ goed verloopt en de 
module werkt, zul je geen problemen on¬ 
dervinden bij het werken op deze manier. 

Uitbreiding C-16 


Theo Wiersma uit Zwijndrecht bezit een 
C-16 en wil daarbij het software-pakket 
'dump Jet ' aanschaffen. Nu staat op de 
verpakking van deze software ’C- 
16+16K'. Hij vraagt wat dit betekent. 


De Commodore C-16 is standaard uitge¬ 
rust met 16 Kilobyte RAM geheugen. Op 
zichzelf een heleboel, maar voor sommige 
softwarepakketten niet genoeg. In deze 
tijd is het in feite ook een beetje zot om een 
computer met relatief weinig geheugen te 
lanceren terwijl de geheugens op zich erg 
goedkoop geworden zijn. 

Om pakketten te kunnen runnen op de C- 
16, die meer verlangen dan de standaard 
16K zul je een geheugenuitbreiding moe¬ 
ten aanschaffen. Deze zijn te koop voor 
zo’n 250 gulden, o.a. bij onze lezersservice 
Infolist. De installatie van deze geheugen¬ 
kaarten in de C-16 levert erg weinig proble¬ 
men op. Het enige wat je erbij nodig hebt is 
een schroevendraaier en een vaste hand. 
De gebruiksaanwijzing geeft voldoende in¬ 
formatie. 

Snellader C-16 


Harafd Baints Groenewold 164 7414 
CK in Deventer laat ons weten, dat hij 
over één van de weinge snelladers be¬ 
schikt, die er voor de C-16 in Nederland 
te krijgen zijn. Hij zal je zeker verder 
kunnen helpen, als je ook zo'n snella¬ 
der wilt aanschaffen. 
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Conflict Power-Cartridge 


Don de Ridder uit Deventer beschikt 
over een Power Cartridge, maar daar¬ 
naast ook over een paar oude andere 
cartridges, die hij ook wil blijven gebrui¬ 
ken. Hij heeft het geheel op een scha- 
kel-printgestoken, waarmee hardware- 
matig kan worden gekozen welke mo¬ 
dule actief moet zijn. De ’ Power- car- 
tridge’ geeft hierbij problemen, omdat 
in zijn geval geen enkele andere modu¬ 
le meer aan het werk te krijgen is. 


Het ontwerp van de Power Cartridge, en 
ook van de Final Cartridge, is zodanig, dat 
er een heel stuk geheugen aan de C-64 
wordt toegevoegd. Daardoor zijn deze 
modules in staat alle zo fantastische func¬ 
ties te kunnen uitvoeren. Maar daarmee 
wordt ook het probllem van Ron gescha¬ 
pen. Deze modules dulden daarom ook 
geen enkele inmenging van andere zaken 
op de expansiepoort. Ze domineren alles. 
Om dit te verhelpen is de enige oplossing: 
wil je werken met een andere module ... 
dan moet je de Power Cartridge uit het slot 
verwijderen. 

Parameter-transport 

Edwin van der Eist uit Rotterdam 
schrijft; Ik vraag me al geruime tijd af, 
wat de C-64 doet met de getallen ach¬ 
ter een SYS-opdracht, bijvoorbeeld 
SYS 49152,100,10. 

Hij wil graag weten wat er met deze 
getallen gebeurt en hoe je ze zelf kunt 
gebruiken. 


Een vraag die alleen met een pittige res¬ 
pons kan worden beantwoord. De Basic- 
opdracht SYS adres geeft de programma- 
controle over aan de routine in machine¬ 
taal, die op het aangewezen adres in het 
geheugen te vinden is. Wil je nu verschil¬ 
lende getallen, ofwel parameters meestu¬ 
ren naar de betreffende machinetaal-routi- 
ne, dan gaat dat niet zomaar. Wat je daarbij 
kunt doen, is een gedeelte van de al aan¬ 
wezige Basic-interpreter gebruiken, door 
bijvoorbeeld de routines die de parame¬ 
ters verwerken van een opdracht als PO- 
KE 3456,2 hiervoor gebruiken. Deze routi¬ 
nes moet je dan wel inpassen in je eigen 
machinetaalprogramma. De adressen van 
de volgende subroutines zijn hierbij van 
belang : 

$B79E: Haal BYTE als parameter binnen 
en zet ’em in register X. 

Deze parameter moet liggen tussen 0 en 
255. 

$AEFD: Controleer of volgend teken een 
komma is, en zo ja skip er dan overheen. 
Bij nee volgt een SYNTAX-ERROR. 

Wil je grotere (integer) parameters meestu¬ 


ren, dan kun je ook gebruik maken van 
$AEFD: om over de komma te springen, 
maar daarna moet je je toevlucht nemen 
tot: 

$AD8A: deze neemt een getal tot 65536 (2 
Bytes) en plaats dit in de Floating Point 
Accumulator I. Om dit getal terug te zetten 
naar een integer van 2 Bytes heb je de 
routine $B7F7 nodig. Hiermee wordt het 
getal uit de FAC1 omgerekend naar inte¬ 
ger, waarbij het resultaat op de adressen 
$14/$15 komt te staan. 

Ik hoop dat je genoeg hebt aan deze 
informatie. Het bestek van deze rubriek 
laat me helaas niet toe om dieper op deze 
materie in te gaan. 

Save en replace. 


Onlangs waarschuwden we tegen het 
gebruik van het aapje (@) bij het op¬ 
nieuw saven van programma's op alle 
Commodore computers. Er blijkt een 
niet uit te bannen 'bug ’ aanwezig te zijn 
in verband met deze optie. H.F. de Bie 
uit Eist vraagt om een mogelijkheid 
deze bug te kunnen omzeilen bij het 
gebruik van sequentiele databe¬ 
standen. 


De manier om allerhande sequentiele be¬ 
standen op tape of disk goed te kunnen 
verwerken is zowel simpel als doeltref¬ 
fend. 

De truc ligt in het feit, dat het oude bestand 
eerst via RENAME een andere naam krijgt. 
Vervolgens wordt het nieuwe bestand met 
de juiste, originele naam als een daadwer¬ 
kelijk nieuw bestand op de disk gezet. Bij 
gebruik van tape kan worden volstaan met 
een nieuwe tape om het gemuteerde be¬ 
stand met de juiste naam op terug te 
schrijven. Nadat deze operatie is gelukt 
kun je zowel in je programma als handma¬ 
tig het oude bestand verwijderen. Deze 
methode heeft als voordeel dat je bij het 
wegschrijven altijd wordt gewaarschuwd 
als er te weinig ruimte op de disk over is 
om het hele bestand weg te zetten. In het 
geval met het @ probeert de Commodore 
dit zelf op te lossen, maar daar zit nu juist 
de fout in de Basic-programmatuur van de 
Commodore. 


Citizen 120 printer 

Behalve horloges maakt Citizen ook randapparatuur voor computers. De Citizen 
120-D is een staaltje van Japans vernuft tegen een scherpe prijs: Voor minder dan fl 
800,- krijgt u de beschikking over een NLQ-machine met 160 cps draft, vet, 
schuinschrift, onderstrepen, super/subscript, breed schrift, Epson- en IBM-grap- 
hics, een smart interface en de keuze uit friction- of kettingpapier. 


De witte printer oogt mooi slank terwijl een 
rook glazen kap en fraai gestyleerde be¬ 
dieningsknoppen het ontwerp vervolma¬ 
ken. Aan de rechter zijkant bevindt zich 
een slede voor het bijbehorende interface. 
Op eenvoudige wijze schakelt u met enke¬ 
le dip switches de printer op drie verschil¬ 
lende Epson FX- en de IBM graphics confi¬ 
guraties. De standaardaansluiting is Cen¬ 
tronics (8 bits) parallel en C64/C128-, IBM-, 
Atari-, Apple- en Tandy- machines sluiten 
daarop probleemloos aan. Alleen voor het 
printen van sommige graphics, zoals die 
van de Commodore en MSX-machines, 
zijn speciale interfacekabels noodzakelijk. 
Kortom de 120-D is een ideale keuze voor 
de bezitter van verschillende computer¬ 
systemen die een goede correspondentie 
printer wil. 

Rechts op het voorpaneel bevinden zich 
de indicatielampjes voor POWER, PAPER 
OUT en READY. Daarnaast zitten drie slan¬ 
ke balkvormige knoppen voor de ON LINE, 
LINE FEED, FORM FEED/AUTO SHEET 
LOAD-functies. Met deze knoppen kan de 
gebruiker ook snel harware-matig van 


schrift veranderen. Druk de FF-knop in en 
dan geeft het desbetreffende aantal malen 
op de ON LINE-toets de volgende Fronts: 
0 Pica, 1 Near Letter Quality, 2 Italics, 3 Vet 
en 4 dun. 

De papierkeuze gaat simpel door middel 
van de Paper Select tuimelschakelaar. In 
de onderste stand kan de gebruiker losse 
A4-tjes invoeren. In de bovenste stand is 
de 120-D, na het monteren van het bijgele¬ 
verde tractor feed mechanisme, gereed 
voor het transporteren van kettingpapier. 
Ook beschikt een printer over een los 
papierrekje voor kettingmaterialen. 

De Engelse gebruiksaanwijzing is een van 
de uitgebreidste en duidelijkste die wij ooit 
gezien hebben. Zowel de programmeur 
als zij die zonder gezeur willen printen 
kunnen hiermee direkt uit de voeten. Vele 
schema’s, figuren en informatietabellen 
verduidelijken de stof. 

Het onderhoud en het vervangen van de 
eindloze inktcassette (2 miljoen tekens 
voor fl 29,-) en de printkop (100 miljoen 
tekens) zijn vrij eenvoudig. 
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Apshai Trilogie 

Bent u een onverschrokken avonturier 
met stalen zenuwen, bliksemsnelle re¬ 
flexen, een dodelijk zwaardsarm, een 
perfecte konditie en een scherp ver¬ 
stand? Zo ja dan vormt de Temple of 
Apshai Trilogie een ware uitdaging. Zo 
nee blijf dan maar liever thuis, want het 
orakel van Apshai voorspelt niet veel 
goeds! 

De Temple of Apshai Trilogie is een 
groots adventure in de sword & sorcery- 
stijl. 



Alle drie de eerder uitgebrachte delen (De 
Temple of Apshai, The Upper Reaches of 
Apshai en The Curse of Ra) zijn nu op een 
disk verenigd tot een groot digitaal epos. 
Na het laden van de schijf belandt u in 
duistere tijden beheerst door magie, de 
macht van het kwade en vreemde creatu¬ 
ren. De beloning kan rijk zijn. De gevaren 
groot. Bezint eer gij zich in de rijken van 
Apshai waagt! 

Het eerste rijk, de Temple of Apshai, is in 
de ban van de duisternis der kwade mach¬ 
ten. De zwarte krachten verzetten zich 
gewelddadig tegen elke indringer. Diverse 
monsters, vallen en rovers staan de held 
naar het leven of begeren zijn verworven 
bezittingen. Bedenk dat de prijs van de 
glorie de pijn is zoals de ouden al in hun 
geschriften optekenden. 

Doolhof 

De tempel zelf is een waar doolhofcom- 
plex. Zelfs de minotaurus scheen er vol¬ 
gens de gebruiksaanwijzing moeite mee te 
hebben. Alleen de geestelijke (Bendic The 
Cleric) kan u naar de uitgang van de Dun- 
geon leiden. Olias the Dwarf en Lowenthal 
the Wizard ontdoen u slechts van uw aard¬ 


se bezittingen. De 37 monsters kennen 
alleen hun eigen Dungeon-vertrek waar zij 
de schatten bewaken. 

Het tweede rijk, The Upper Reaches of 
Apshai, vormt een uitdaging voor de men¬ 
selijke geest. Een intrigerende mix van 
tragedie, komedie en geestelijke verrijking. 
Wat is fictie en wat is werkelijkheid? Ne¬ 
men de góden een loopje met de mensen? 
Slechts met de grootste mentale inspan¬ 
ning weet de held hier zijn zintuigen en 
hersens bij elkaar te houden. 

Belangrijke ontmoetingen in The Upper 
Reaches of Apshai zijn het klooster van 
Benedic (Benedic’s Monastry), een plaats 
voor vrome overpeinzingen en gebeden, 
en Merlis de magiër wiens spreuken en 
bezweringen u naar het volgende rijk kun¬ 
nen helpen. Ook zijn er nog wat doden die, 
na door vervelende knaagdiermonsters te 
zijn afgekloven, de slaap niet kunnen vat¬ 
ten. De levenden worden op hun beurt 
geteisterd door geest verscheurende 
nachtmerries en velen verkozen reeds de 
dood boven deze aardse marteling. Als 
held worstelt u natuurlijk door op weg na 
de vloek van Ra. 

Het derde en laatste rijk wordt gekweld 
door de Curse of Ra. Een land van verblin¬ 
dend zand en een netwerk van kamers. En 
ergens schuilt de Sphinx die op de wereld 
broed en al eeuwen lang een geheim bij 
zich draagt. Alleen dit geheim van de god 
Ra kan de verschrikkelijke vloek te niet 
doen. De weg naar de Sphinx en het altaar 
van Ra is weer vol gevaren. Behalve allerlei 
onvriendelijke woestijnorganismen zoals 
schorpioenen en jakhalsen zijn er nog 
mysterieuze stofgeesten en zandstormen. 
In deze laatste beproeving ontdekt de held 
zich zelf. 

Om de hierboven geschetste speurtocht 
te kunnen overleven is een goede uitrus¬ 
ting onontbeerlijk. Daarom beginnen dit 
soort adventures meestal met een zoge¬ 
naamd uitrustings- of karakteropbouw- 
scherm. Bij de Apshai trilogie spreekt men 
van het Innkeeper-scherm. Na de keuze 
van het spelkarakter (beginners kunnen dit 
de herbergier laten doen) moet de held 
bewapend worden. De herbergier blijkt 
een echte sjacheraar die u van alle silver- 
lingen wil ontdoen. Onderhandelen kan 
echter een flinke duit besparen. Zwaar 
bewapenen mag dan wel een aardig ge- 
vechtsoverwicht opleveren. Een te zware 
uitrusting doet uw broodnodige krachten 
echter zienderogen afnemen. Kies daarom 
voor een normale wapenuitrusting. 

De besturing gaat via eenvoudige keybo- 
ardopdrachten. Bijvoorbeeld L voor Links, 


R voor rechts en A voor Attack (=aan val¬ 
len). Vechten is overigens slechts een van 
de verschillende interactievormen. Er kan 
ook met monsters gepraat of onderhan¬ 
deld worden en bij een te vervaarlijke 
tegenstander is vluchten een wijs besluit. 
Behalve het toetsenbord kan voor het ge¬ 
mak (geen snelheidswinst!) ook een muis 
of joystick gebruikt worden. 

Gevechten kosten krachten en brengen 
wonden toe. Oplappen kan met zalfjes, 
elixers, rusten of geestelijke bijstand van 
broeder Bendic. Verder beschikt het spel¬ 
karakter over Intuïtie (o.a. buitenzintuigelij¬ 
ke waarneming, ruimtelijk en logisch in¬ 
zicht om bijvoorbeeld verborgen doorgan¬ 
gen te ontdekken en zich met de externe 
mentale krachten te meten), een Ego (be¬ 
paalt diens wilskracht, hardheid en overre¬ 
dingskracht), Intelligentie (het omgaan 
met magie, het oplossen van problemen 
en het voeren van onderhandelingen), Er¬ 
varing (in het afhandelen van lastige spel¬ 
situaties) en Behendigheid (reflexen en 
slagvaardigheid bij de strijd). 



Alle spelerinformatie en status vindt u 
rechts op het scherm in het Dunjon Mas- 
ter-venster. Ook verschijnen hier bood¬ 
schappen over het resultaat van de ge¬ 
vechten en het schatzoeken. Links daar¬ 
van bevindt zich het eigenlijke adventure- 
scherm waarop het desbetreffende ver¬ 
trek is afgebeeld. 

De Temple of Apshai Trilogie is een veelzij¬ 
dig adventure met 12 spelniveau’s en 568 
kamers. De graphics zijn ten aanzien van 
de vorige versies verbeterd evenals de 
speelsnelheid. Toch blijven de graphics 
wat simpel. Overigens geen echt bezwaar 
voor een sfeeradventure. Ook had men 
meer aandacht voor het geluid dat het spel 
nu realistischer maakt. Verder konden wij 
het saven van de spelstand en karakters 
waarderen. Deze laatste optie maakt veel 
variatie mogelijk. 

The Temple of Apshai Trilogy wordt in 
Nederland door ArioloaSoft geimporteerd 
en kost kompleet met de Engelse Handlei¬ 
ding in de C64/C128 uitvoering ƒ59,-. 


22 















SOFTWARE ★ SOFTWARE ★ SOFTWARE 


Mind Mirror 


Het allernieuwste produkt van Electronic 
Arts is gemaakt in samenwerking met Ti- 
mothy Leary, de man die ooit als ”LSD” 
profeet aan de weg timmerde. Hij bleef in 
de psychologische sfeer met het nieuwe 
programma ”Mind Mirror”, een methode 
om de mentale kracht te testen. Het biedt 
de speler/(patient?) een sterotyp karakter 
aan en vraagt dan om de kenmerken daar¬ 
van te waarderen. De resultaten leiden tot 
een zgn. ”Mind Map” en van daaruit begint 
dan de psychologische ”trip”. 


Rasputin 



Vechten is in bij de computerspelletjes. 
Firebird, dochteronderneming van de brit- 
se PTT (British Telecom), heeft al heel wat 
fraaie software gemaakt en komt nu met 
een grafisch adventure, dat Rasputin heet. 
Met de gebruikelijke attributen, een ma¬ 
gisch zwaard en schild, moet men de 8 
banvloeken van Rasputin zien te neutrali¬ 
seren om het "Sieraad der 7 planeten” te 
pakken te krijgen. 


Men moet per scherm eerst de nodige 
punten verzamelen door op de juiste ste¬ 
nen te gaan staan en dan de geest van dat 
scherm nog verslaan. Dan krijgt men een 
eigen beschermende spreuk, die wel over¬ 
een moet stemmen met de juiste kleuren in 
het volgende scherm. Gecompliceerd ge¬ 
noeg om vele malen mis te tasten, maar 
dat maakt het juist wel spannend. Naden¬ 
ken dus, maar ook gewoon snel met de 
joystick manoevreren. 

Gelukkig kan het hele spel ook even ge¬ 
stopt worden door de spatietoets in te 
drukken, en Enter/return zet de zaak dan 
weer in beweging. 

Een spel in de Engelse traditie, maar qua 
complexiteit en kwaliteit niet op het Elite- 
niveau. 


Biggles 

Al weer heel wat jaartjes geleden was 
Biggles, de avonturier/oorlogsvlieger, de 
favoriet van heel wat jongens, die de Bigg- 
les-boeken werkelijk stuklazen. Er komt nu 
een film uit: Biggles, the untold story en 
dan is een computerprogramma niet ver 
meer. Het komt van Mirrorsoft en is een 
grafisch adventure, met natuurlijk veel 
vliegen, maar ook andere speltypen ko¬ 
men voor. Het doel is de vernietiging van 
een Geheim Duits Wapen, dat anders de 
loop van de oorlog beslissend zou veran¬ 
deren. ........... 



Hopeloos 

De mannen van Radarsoft vormen een van 
de meest creatieve en actieve program- 
meerclubs aan deze kant van de atlanti- 



sche oceaan. Men werkt er nu met specia¬ 
le porting-programma’s om de ontwikkel¬ 
de software ook direkt klaar te hebben 
voor andere machines zoals de MSX, Am- 
strad en Atari. Het nieuwste adventure in 
de -LOOS reeks heet HOPELOOS of HO- 
PELESS in de Engelse versie. 

Gemaakt door John Van Der Aart, die als 
Dr.J. zijn naam liefst zonder spaties ge¬ 
speld ziet en Wyo Koek, die ook al de 
adventure Eindeloos maakten. Het gaat 
om wat we al haast een klassieke Radar¬ 
soft adventure kunnen noemen, dus een 
grafisch actiespel van een zodanige om¬ 
vang, dat men daar dagen- of zelfs weken¬ 
lang in kan ronddwalen, al gaande raad¬ 
sels oplossend, dingen oppikkend en 
maar zoeken naar de verborgen schat. 
Hopeloos heeft meer dan 2000 schermen 
en dat is nog steeds een ongeëvenaarde 
prestatie van deze programmeurs. Stel je 
even voor, in een geheugen van 64 KB, 
waarvan een deel nog bezet wordt door 
systeemsoftware, zo’n enorm complex 
wegzetten, compleet met figuren, vijan¬ 
den, raadsels en van hoge grafische kwali¬ 
teit. Deze keer gaat het niet, zoals bij 
Eindeloos, om een helicopter in een laby- 
rinth, maar om een figuur, ”Dutch Meat” 
Bluntz, die door allerlei omgevingen dient 
te trekken, en al lopend, schoppend en 
vechtend zijn gang gaat. De redding van 
zijn vriendin Jane, fraai gevormd, is zijn 
doel, waarvoor hij naar het zonnestelsel 
New Almere moet trekken om de vijand, 
Manie Munk te verslaan. 

Hopeloos kost ƒ 39,-, compleet met veel 
geluidseffecten. 

80 koloms schermen 

Wie de aanschaf van de speciale 1901 
monitor voor de 128 toch wat te duur vindt, 
kan proberen om toch een normale moni¬ 
tor te gebruiken, zoals de 1701. Het resul¬ 
taat is, afhankelijk van de kwaliteit van de 
monitor, wel iets minder dan van de 1901, 
maar toch vaak goed genoeg. Maar de 
verbinding is niet zo simpel, CBM gebruikt 
weer eens een afwijkende aansluiting en 
heeft het Composiet Video signaal op pin 7 
van de RGB uitgang zitten. Wie gemakke¬ 
lijk klaar wil zijn, Robtek (01650-58888) 
levert hiervoor een interface. 

C-16 software 

De verkrijgbaarheid van software blijft een 
probleem, maar uit Engeland komen nu 
toch wel wat titels beschikbaar. Met name 
Mastertronic heeft een hele reeks met o.a. 
Formula One Simulator, Rockman en 
Spectipede. Ook Ocean, Gremlin Grap¬ 
hics, en Elite hebben C-16 aanbiedingen. 
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Space Escort 

Een Shoot them up spel voor de Cl 6. Als 
zwaar bewapende ruimtejager dient u de 
gescorteerde vrachtschepen tegen vier 
vijandige aanvalsolven te verdedigen. Na 
het afknallen van alle tegenstanders mag 
men op een veilige planeet landen. Het 
volgende scherm zorgt weer voor vier 
nieuwe aanvalsgolven met nog driestere 
aliens en ga zo maar door. 

Redelijke graphics en sound voor de trig- 
ger happy op Atlantis cassette voor onge¬ 
veer 15 gulden. 

De Berks Triology 

De al wat oudere Berks Triology van CRL is 
nu voor de Cl 6 beschikbaar. Met behulp 
van een Terror Tank kunt u vijfhonderd 
punten per overhoop geschoten Berk ver¬ 
dienen. De Drones die deze hersenloze 
krijgers beschermen brengen slechts 10 
punten per verdoofd exemplaar op. 

In het tweede deel wordt u Major Blink, de 
ontwerper van de Berks die het met zijn 
eigen Drones aan de stok krijgt. Na het 
nodige schietwerk verschijnt deel drie 
waarbij de held Berk City zelf te lijf gaat om 
21 sleutels te pakken te krijgen. Deze 21 
sleutels verschaffen de toegang tot de 
heilige schatten van de Berks. Een aardige 
beloning voor een onbesoldigd tankcom- 
mandant. 

Winter Olympics 

Leuk voor uw Cl 6 op het bloedhete 
strand. Denken aan sneeuw en ijs werkt 
dan wellicht verkoelend hoewel het spel- 
vuur misschien een tegenovergesteld ef¬ 
fect sorteert. Op kant een van de dubbel¬ 
zijdige cassette staat het keuze menu voor 
zes traditionele winterlympics: Skisprin¬ 
gen, bobsleën, slalom, schaatsen en nog 
twee skievenementen. 

Winter Olympics van Tynesoft behoort 
kwa uitvoering zeker tot de betere Cl 6/C4 
spelen en kost ongeveer 30 gulden. 

The Pawn 

The Pawn is een van de opmerkelijkste 
tekst & graphics- avonturen die de laat¬ 
ste tijd voor de Commodore 64 en 128 
verschenen zijn. 

Niet alleen munt dit adventure uit door 
de bijzondere fraaie graphics, een zorgvul¬ 
dig opgebouwde spelatmosfeer en de vele 
lokaties. Deze game beschikt ook nog 
eens over een kunstmatig intelligente text- 
parser met humor. 

Het Engelse softwarehuis Rainbird steekt 
met haar The Pawn de Amerikaanse ad- 
ventureontwerpers naarde kroon. De Pion 
haalt werkelijk alles uit de grafische en 
kleurmogelijkheden van de commodore. 


De door de artiest Geoff Quilley ontworpen 
platen kostten per stuk drie dagen werk 
om hen in spelgraphics om te zetten. En er 
staan maarliefst 35 verschillende tekenin¬ 
gen en 100 lokaties op de speldiskette. 
De door de filosofiestudent Rob Steggles 
ontworpen plot lijkt op het eerste gezicht 
slechts te gaan over een ordinaire drank- 
oorlog. In het verleden floreerde het rijk 
Kerovnia door haar beroemde malt wisky. 
Die wisky werd door de Roobikyoub dwer¬ 
gen gebrouwen. Helaas lieten zij zich ook 
in met politieke intriges en na de moord¬ 
aanslag op koningin Jendah II werden de 
dwergen door koning Erik verbannen. Ko¬ 
ren op de molen van de beide concurren¬ 
ten, de Farthington Real Ale company en 
de mineraalwater bottelende Romni 
gnomes. 

Kerovnia blijkt echter niet zonder de finan- 
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ciële kracht van de wisky te kunnen, maar 
koningen Erik en de beide bottelaars ver¬ 
zetten zich met hand en tand tegen pogin¬ 
gen om de Roobikyoub dwergen hun 
staatsburgerschap terug te geven. En Erik 
boedt daardoor aanzienlijk aan populari¬ 
teit in. 

De speler valt met zijn neus midden tussen 
de drankintriges en moet zien uit te vinden 
wat zijn missie is en hoe deze volbracht 
kan worden. Vreemde figuren zoals Kro- 
nos de magiër die op een stenen platform 
voorbij zweeft en een guru die niet meer bij 
komt van het lachen, schone princessen, 
de duivel en de drankhandelaar Honest 
John kruisen daarbij uw pad. 

De tekstparser is een echt unicum. Er zijn 
drie opties: normaal, kort en woordenrijk. 
En kletsen kan The Pawn. Vraag de goeroe 
bijvoorbeeld maar eens naar de betekenis 
van het leven. Dan krijgt u vrij vertaald het 
volgende antwoord:” Het leven kan 
vreemd, heerlijk, beangstigend, opbeu¬ 
rend en kompleet onverklaarbaar zijn. Het 
leven is veel boeiender als men het ge¬ 
bruikt om over het leven na te denken. 
Toch brengt de dood een eind aan het 
mijmeren over het leven. Misschien is het 
beter om er niet over na te denken maar 
het gewoon te leven. Want het is een gift 
en behoort niet verspild te worden. 


En wat denkt u van de humor. Na de 
opdracht LISTEN TO THE WALL verschijnt 
de boodschap: ”Zo u bent een Pink Floyd 
fan”. En PUT THE PLANT IN THE POT 
geeft als reactie:” The plant is much hap¬ 
pier now”. 

Aanbevolen voor avonturiers die eens wat 
anders willen. Het spel kost op disk (er is 
geen cassette uitvoering!) met het begelei¬ 
dende boek en poster ongeveer 100 
gulden. 

Alternate Reality, The City 

Een fantastische Science Fiction odyssee 
op de C64/C128 van Datasoft. De plot lijkt 
veel op die uit UFO-verhalen. Een buite¬ 
naards ruimteschip pikt de held van onze 
goede aarde en zet hem neer op een 
vreemde wereld. Leuk voor een komplete 
serie met als deel 1 The City. 

Voor dat u zich überhaupt in de vreemde 
stad Xebec’s Demise waagt dienen de 
karakterkenmerken van de held gedefini- 
ëerd te worden. Deze waarden bepalen de 
toekomste kracht en zwakte van deze rol. 
Daarna kunt u op pad en scrollen de fraaie 
graphics van de buitenaardse stadsarchi¬ 
tectuur aan de hoofdpersoon voorbij. Met 
het aanvankelijk nog beperkte budget (laat 
het koopmansbloed eens vloeien!) kunt u 
14 kroegen, 15 winkels, 4 smeden, 7 loge¬ 
menten en nog 14 gildehuizen bezoeken. 
Het geld komt op twee manieren binnen: 
Ordinaire straatroof en speculeren bij een 
van de drie banken. De eerste methode 
brengt vooral in het begin risico’s met zich 
mee daar de belaagden ook van wanten 
weten. 

Alternate Reality is een zorgvuldig opge¬ 
bouwd rollenspel met fraaie graphics en 
goed geluid. Voor de liefhebber volgen er 
nog vier extra delen: The Wilderness, The 
Arena, The Dungeon, en The Palace. 


128 Assembler 

Binnenkort komt Radarsoft met een as¬ 
sembler voor de 128 in de 128 mode, 
waarmee men ook eens echt kan gaan 
werken met de grotere geheugenruimte 
van deze machine. Het pakket gaat rond 
de 150 gulden kosten. 


Your Money Manager 

Het op Amerikaanse leest geschoeide J.K. 
Lassers’s Your Money Manager is een 
kompleet pakket voor thuis-accounting en 
(kleine) zakelijke administratie. Het pro¬ 
gramma biedt o.a. een checkwriter, balan¬ 
sen, facturering, boehouding en budget- 
rapporten. 

De werking is behoorlijk gebruiksvriende- 
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schijven, maar dat lag eerder aan de 
copiëertechnieken dan aan de ontwer¬ 
pers. 

In de nieuwe Ultima kan de liefhebber 
het hart weer ophalen aan personages 
van diverse pluimage, mysteries en 
vreemde lokaties. 

Ultima IV, officieel Quest of the Avatar 
geheten, is weer een rollenspel van het 
oude stempel. Het programma is maar¬ 
liefst 16 maal zo groot als zijn voorganger 
Ultima III en dat belooft heel wat weken 
spelgenot voor uw ruim 200 gulden dat 
deze diskcollectie met uitgebreide hand¬ 
boeken moet opbrengen. 

In de Quest of the Avatar worden deze 
maal geen tovenaars of superschurken 
achterna gezeten, maar bevat de plot een 
soortement heilige graal-verhaal. De 
speurtocht naar de Avatar is een quest 
naar een nieuwe standaard, een nieuwe 
levensinstelling waarvoor een verlicht per¬ 
sonage aangezocht wordt. U kunt als koe¬ 
ne ridder de wereld van Brittania naar de 
nieuwe dageraad voeren. 

De speler-spelkarakter interactie maakt 
zoals gewoonlijk weer het leeuwendeel 
van het adventure uit. De graphics en 
sounds blijven daarbij op de achtergrond. 
Zonder te vragen komt men niet ver. Na 
het intypen van de T van talk ontspint zich 
een interactief gesprek waarvan de uit¬ 
komst heel verschillend kan zijn. verschil¬ 
lende spelpersonages spreken klare taal, 
hullen zich in orakelachtige vergelijkingen, 
kletsen een eind weg of gaan u te lijf. Op 
hun beurt kunnen de spelfiguren eveneens 
vragen stellen. Daarbij is men van leugens 
niet zo gediend en dat leidt tot wantrou¬ 
wen zonder verdere medewerking. Bye 
beëindigt de conversatie. Andere eenvou¬ 
dige opdrachten zijn H(ealth) voor de ge¬ 
zondheid, J(ob) voor arbeid of baan en 
L(ook) voor een persoonbeschrijving. 
Verder lijkt Ultima IV veel op zijn voorgan¬ 
gers. Al zijn er wat nieuwe toverspreuken 
en creaturen bijgekomen. Het slechte 
scrollen en de hier en daar toch wel matige 
graphics zijn gebleven. De liefhebber zal 
zich daar echter niet aan storen. The Quest 
of the Avatar is inmiddels de Atari C64 en 
Cl 28 met diskdrive verkrijgbaar. 


keyboard heen! 

S&S’s Typing Tutor is bij de beginnende en 
al gevorderde typist(e) een gewild item. De 
gebruikte Time Respons Monito- 
ring(TMS)-techniek biedt uitgebreide snel¬ 
heidstesten voor letters, woorden, cijfers 
en toetslocatie. Staafdiagrammen maken 
de behaalde resultaten op stimulerende 
wijze zichtbaar. Voor de meer speelse 


lijk. Door middel van zogenaamde transac- 
tievensters kan de gebruiker gemakkelijk 
uit de opties recording checks, deposits, 
reguliere en irreguliere betalingen en auto¬ 
matische transacties kiezen. Overzichts- 
uitdraaien kunnen over elke periode naar 
keuze gemaakt worden en de uitkomsten 
zijn voor tal van doeleinden, bijvoorbeeld 
de boekhouding en belastingaangifte, ge¬ 
schikt. Behalve het maken, displayen en 
afdrukken van individuele financiële rap¬ 
porten is het tevens mogelijk verschillende 
soorten grafiekken te laten tekenen en de 
huidige of toekomstige trends te laten 
analyseren. 

Your Money Manager beschikt over een 
ingebouwde calculator met vier reken¬ 
functies. Deze rekenmachine is door mid¬ 
del van een toetsindruk oproepbaar. 

Dit financiële pakket is een produkt van 
Simon & Schuster, New York en draait op 
alle C64/C128-machines met diskdrive. 
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leermethode staat het ”shoot them up”- 
arcadespel Letter Invaders ter beschik¬ 
king. 

De grote kracht van S&S’s Typing Tutor III 
schuilt hem echter in de zogenaamde cus- 
tomized lessons-aanpak. In eenvoudig 
Nederlands betekent customized dat de 
gebruikte onderwijstechnieken optimaal 
op de leercapaciteiten en (inmiddelst be¬ 
heerste) vaardigheden van de leerling wor¬ 
den afgestemd. Typing Tutor past zich 
automatisch aan de individuele specifica¬ 
ties aan en saaie typelessen behoren daar¬ 
mee tot het verleden. 

Typing Tutur III draait zonder mankeren op 
elke PCCommodore 64 of 128rmachine 
met diskdrive. De prijs bedraagt ongeveer 
125 gulden. De fabrikant is Simon & 
Schuster, 1230 Avenue of the Americas, 
New York NY 10020, USA. 
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Een additionele printer is eigenlijk onmis 
baar. De prijs bedraagt rond de fl 175,-. 


S&S Typing Tutor 

In deze tijd van tekstverwerking en auto¬ 
matisering wordt vaardigheid op het toet¬ 
senbord bijna een opleidingsvereiste. Ve¬ 
len zitten echter nog voortdurend met hun 
vingers klem tussen de keys en voor hen 
kan een zogenaamde Typing Tutor (soft¬ 
ware typeleraar) uitkomst bieden. 

De Typing Tutor III van het Amerikaanse 
softwarehuis Simon & Schuster kreeg on¬ 
langs het goud voor meer dan 100.000 
verkochte pakketten. Op de bestsellerslijst 
staan overigens nog veel meer digitale 
typeleraren daar een groeiend aantal ge¬ 
bruikers dringend behoefte heeft aan 
toetsvaardigheid. Thuiscomputeraars, 
studenten en kleine zakelijke gebruikers 
kunnen eigenlijk nauwelijks meer om het 


Ultima IV 


Lord British (de programmeur Richard 
Garriot) weet niet van ophouden. Het 
vierde deel van het Ultima epos kondigt 
zich inmiddels aan. Alle voorgaande Ul¬ 
tima delen zijn door de kritici en kopers 
goed ontvangen. Er waren wel eens wat 
problemen met dienst weigerende 











Zelf tekenfilms en schermanimaties maken was altijd een moeizaam en arbeidsinten¬ 
sief proces. Niet met Moviemaker van Electronic Arts waarmee het tekenen, kombine- 
ren en animeren van figuren en het samenstellen van een soundtrack aanzienlijk 
eenvoudiger wordt. Alle ontworpen animaties, achtergronden en geluiden laten zich op 
uw videorecorder tot een vermakelijke tekenfilm mixen. AriolaSoft introduceert dit al 
wat langer bestaande Moviepakket voor de Commodore C64/C128 op de Neder¬ 
landse markt. 


MOVIEMAKER 



Tekenfilms 
op de C64/C128 




ovie Maker biedt de C64/ 
C128-bezitter een complete 
filmstudio met bemanning. 
Tijdens het laden van de eer¬ 
ste diskette kunt u even de 
Rolls Royce parkeren en rustig de rode 
loper naar het studiocomplex aflopen. 
Uw vijf crewmembers de Stage Mana¬ 
ger, Director, Cameraman, Soundman 
en het Art Department staan al klaar. 


Electronic Arts Moviemaker is een veelzij¬ 
dige en krachtige doe het zelf kit in de lijn 
van reeds eerder succesvolle pakketten 
The Pinball Construction Set en The Music 
Construction Set. Deze tekenfilmsoftware 
bespaart de animatiefilmer veel werk en 
tijd. Uren gepruts met tal van figuurtjes in 
hun verschillende bewegingsfasen en ach¬ 
tergronden behoort nu tot het verleden. 
Movie Maker neemt het grootste deel van 
deze tijdsconsumerende taken van u over. 
Een geluidsarchief is behulpzaam bij het 
samenstellen van de soundtrack. 

De Movie Maker-studio bestaat uit vier 
werkruimten of rooms. In de Compose 
Room creëert u de verschillende karakters 
en de achtergrond. De animatie vindt 
plaats in de Record Room. Het snijden en 
wegwerken van oneffenheden (flikkerin¬ 
gen) vindt plaats in de Smooth Room 
(cutting room). En in de Play Room 
(screening room) kunt u de premiere van 


de eigen cartoonproductie aanschouwen. 
De nijvere standbemanning beweegt zich 
waar nodig over de vier rooms en staat u 
als producent voortdurend ter zijde. Alle te 
nemen beslissingen blijven echter bij de 
producer! 

Voor het nemen van die producersbeslis- 
singen is een kleine spoedcursus filmtaal 
noodzakelijk. Gelukkig liggen alle gebruik¬ 
te opdrachten voor de hand. A staat voor 
Action, G voor Goto, Z voor Zoom, S voor 
Sequence, J voor Jump (verschillende be- 
wegingssnelheden), F voor Frame rate 
(beeldsnelheid) enz. In de Engelse handlei¬ 
ding staan zij allen uitvoerig beschreven. 
Laat u niet afschrikken door het grote 
aantal kommando’s, want na even doorbij¬ 
ten wordt hun kracht snel duidelijk. 

De Composing Room 

Na het laden van de diskette verschijnt het 
hoofdmenu met de vier rooms. Óm te 
starten kunt u alleen uit 1.Compose en 
2.Record kiezen. De beide andere opties 
zijn alleen bruikbaar als er al met 1 of 2 
gewerkt is en materiaal voor het cutten of 
afspelen ter beschikking staat! De menu- 
actievatie gaat eenvoudig met de cursor- 
toetsen en de RETURN-key. 



Voor de Composing Room wordt 1 plus 
RETURN ingedrukt en als het desbetref¬ 
fende menu verschijnt de masterdiskette 
(Program Disk) door de Data Disk vervan¬ 
gen. GET FILE maakt het programma ge¬ 
reed om een van de vele files op te halen. 
Daarbij biedt Movie Maker de keuze uit: 
«rDe Shape Files met de verschillende 
cartoonkarakters. Een Shape File kan 
maximaal 64 verschillende beelden op een 
scherm, de Shape Page, bevatten. Een 
dergelijk groot aantal shapes maakt de 
animatie flexibel. Zo is het bijvoorbeeld 
mogelijk om eenmaal opgenomen bewe- 
gingsfiguren voor verschillende anima- 
tietypen te gebruiken. Het aantal variaties 
in beeldseries is daarmee bijzonder groot. 
Movie Maker bevat al een groot aantal 
standaardfiguren zoals een draak, een 
hond, een heks, koeien en een kind. Na¬ 
tuurlijk kunt u ook zelf ontworpen karak¬ 
ters aan de Shape Files toevoegen. 
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De Background Files bieden de scene- 
ry waartegen de ontworpen animatie zich 
afspeelt. Er zijn standaard al diverse ach¬ 
tergronden met verschillende lichtval en 
weersomstandigheden aanwezig. Desge¬ 
wenst is het weer mogelijk om zelf gete¬ 
kende Background Files aan het bestand 
toe te voegen. Het grote aantal sceneries 
biedt een grote variatie bij het maken van 
tekenfilms doordat de animaties zich voor 
steeds wisselende achtergronden, tijdspe¬ 
rioden (bijvoorbeeld van zonsopgang tot 
zonsondergang) en weersomstandighe¬ 
den (na regen komt zonneschijn) kunnen 
afspelen. 

De Animation Files bevatten al kant en 
klare shape -sequenties (een reeks bewe¬ 
gingsfasen van een figuurtje) van 16 beel¬ 
den. U maakt deze files door de shapes 
met behulp van de joystick over het 
scherm te verplaatsen en in de juiste volg¬ 
orde te zetten. Een Animation file kan 
maximaal 16 verschillende sequenties si¬ 
multaan afspelen en 300 beeldjes be¬ 
vatten. 

w De Sound Files maken het mogelijk om 
4 audio tracks, bestaande uit muziek of 
geluidsfragmenten, met de ontworpen ani¬ 
matie te kombineren. 



«r De Extra Function Files biedt de opties 
SCALE om de hoogte en breedte van de 
karakters aan te passen, TEXT voor het 
maken van ballonteksten en text-Scrolling. 
m- De gemaakte Movie Maker Files die los 
of gekombineerd als een komplete teken¬ 
film gebruikt kunnen worden. 

In de Composing Room put u uit de be¬ 
staande filevoorraad of roept via CLEAR 
MEMORY en EVERYTHING een lege Sha¬ 
pe Page op. Op deze lege pagina kunt u na 
het intypen van B(order) met de joystick 
een ontwerpbox op het schermzetten. 
&P& maakt de spelpook tot een veelzijdige 


tekenpen en een cijfer (1,2 of 3) voegt de 
gewenste kleur toe. PO is uitvlakken, R(es- 
tore) herstel. En H zet het kleurenpalet aan/ 
uit. 

Er zijn vier leden van de standbemanning 
in de Composing room aanwezig. Het Art 
Deparment zorgt voor het tekenvenster, 
de verschillende kleuren, het copiëren, 
spiegelen en de O(utline) van de figuren. 
De Director behandelt de A(ction) of play¬ 
back, de J(ump) en J(ank). J bepaalt de 
bewegingssnelheid in 1 tot maximaal 9 
pixeleenheden. Y(ank) wist de onnodige 
shapes. 

Nu de sterren, de decors en de actie 
gereed zijn komt uw Cameraman in het 
geweer. Deze artiest beschikt over de 
kommando’s F(rame rate) bepaalt de ani- 
matiesnelheid in beeldjes per seconde, 
K&0*(wickness) bepaalt het aantal keren 
dat een shape op het scherm verschijnt 
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en gebruikt L(oop) voor het maken van 
animatielussen. Deze drie krachtige filmi¬ 
sche gereedschappen maken vele teken- 
filmeffecten, bijvoorbeeld elk van de spe¬ 
lers een verschillende snelheid, mogelijk. 
De Stage Manager beheert het utilitymenu 
met de zakelijke kommando’s COMPOSE, 
GET, CATALOG, CLEAR, DELETE, FOR- 
MAT, SELECT (drive) en MAIN MENU. 

De Recording Room 

De opnamekamer heeft veel weg van een 
geluidsstudio. Er zijn 6 acteurs- (actor 
tracks 1 t/m 6) en 4 geluids (voice 1 t/m 4)- 
sporen. Daarmee kunt u op de videorecor¬ 
der een komplete tekenfilmmix van ver¬ 
schillende figuren en geluiden maken. 

De Stage Manager is zoals gebruikelijk 
weer op de achtergrond aanwezig. Alle zo 
juist genoemde opdrachten, behalve 
COMPOSE dat nu door RECORD is ver¬ 



vangen, staan hem ter beschikking. De 
Director regisseert met het A(actor)-kom- 
mando het vastleggen van de verschillen¬ 
de acteurs op uw videorecorder. Al komt 
op spoor 1, A2 op track 2 enz. Het intypen 
van A met het corresponderende acteurs- 
nummer geeft automatisch de achter¬ 
grond pagina en start de videorecorder. 
Het S(equence)- en J(ump)-kommando 
kiezen de juiste serie shapes en het aantal 
pixels dat een figuurtje per joystickbewe- 
ging of cursortoetsdruk aflegt. Verder be¬ 
schikt de Director nog over een ESC-, om 
tussen de Shape- en scenerypagina’s te 
switchen, en SPACEBAR-kommando’s 
om het opnemen te starten/stoppen. 

Ook de Cameraman ontbreekt niet op de 
recording set. Deze maal staan hem naast 
de F-, L- en K-functies ook een ERASE (E) 
FRAME-, een GOTO (G)-, een PLAYBACK 
(P)-, een rewind (R)- en de ZOOM (Z)- 
functie ten dienste. Met GOTO springt de 
Movie Maker naar het door cijfers, bijvoor¬ 
beeld 089, aangegeven beeldje. PLAY¬ 
BACK speelt de zojuist opgenomen beeld¬ 
volgorde af. En REWIND speelt de anima¬ 
tie achterstevoren af. ZOOM maakt close 
ups van de gebruikte karakters. 

Voor de soundtrack is er een echte Sound- 
man aanwezig. Uw geluidstechnicus dubt 
het geluid net zo als bij conventionele 


videoopnamen op tape. Het gewenste ge¬ 
luidsfile wordt geladen, via een van de drie 
C64/C128 Voices afgespeeld en op de 
videotape gedubd. Behalve muziekfiles 
kunnen er via FX ook geluidseffecten wor¬ 
den geregistreerd. Het opnemen zelf gaat 
vrij eenvoudig. Noise zet de recorder in de 
opnamestand op pauze. Een druk op de 
spatiebalk start de opname en stopt deze 
bij de volgende aanslag. 

Smoothing 

Net als bij een echte filmproductie wordt 
de film eigenlijk pas echt in de snijkamer 
gemaakt. De cutting room is het domein 
van de Stage Manager. Voor de montage 
beschikt hij over drie nieuwe krachtige 
tools: 

O Met de ENTER beginning text-optie 
kunt u fraaie scrollende titels aan het begin 
van de animatie zetten. Bijvoorbeeld: 
”COMMODORE-INFO PRODUCTIONS 
presents: 

VIC & SID meet The Bugbiters” 

0 Idem voor het einde van de film met de 
ENTER ending text-optie. 

0 De SMOOTH-optie verwijdert automa¬ 
tisch alle flikkeringen uit de animatie. Na 
de activatie van deze keuze vraagt Movie 
Maker om de filenaam. Intypen plus RE¬ 
TURN doet de rest. 

Play 

In de Screening Room staat het zweet in 
uw handen. Wordt de met veel zorg en 
inspiratie gemaakte tekenfilm een topper 
of een flop? De premiere zal het leren. De 
Stage Manager en Cameraman staan ge¬ 
lukkig de Director trouw ter zijde. 

In de Play-mode beschikt uw toneelmees¬ 
ter slechts over vier functies: SELECT dri¬ 
ve, MAIN MENU, CATALOG en PLAY. De 
Director beheerst met de spatiebalk de 
digitale C64/C128-projector. Een maal 
drukken is weer draaien. Bij een tweede 
maal drukken stopt de film. Verder kan de 
Director met S(ave screen) een kleurige 
schermposter op schijf saven om deze 
later met de Okimate 10 Color printer uit te 
draaien. Leuk voor bij de bioscoopkassa. 
De Cameraman neemt de functie van pro- 
jecteur over en regelt met F 1 t/m 9 de 
afdraaisnelheid. 


Movie Maker in de Praktijk 

Als je voor het eerst de duidelijke gebruiks¬ 
aanwijzing leest slaat de schrik toch wel 
even om het hobbyhart. Wat een mogelijk¬ 
heden en vooral wat een kommando’s! 
Gelukkig maakt het Engelse manual eerst 
een klein rondtoertje door het studiocom- 
plex en legt vervolgens elke room functie 
voor functie uit. 

Het is verstandig om eerst eens de demo’s 
op de achterzijde van de Programma Disk 
te bekijken. Dat geeft een aardig idee van 
de mogelijkheden van Movie Maker en 
wekt inspiratie op. Katalogiseer daarna de 
verschillende files en maak het in de hand¬ 
leiding punt voor punt beschreven proef- 
flimpje. Daarmee komt u als beginnend 
Director vaster in het regiezadel te zitten. 
Mocht men toch klem lopen dan bieden de 
appendixes achter in het manual handige 
referentiekaartjes. 

Om alle mogelijkheden van Movie Maker 
uit te proberen heeft men ons inziens wel 
een dikke maand nodig. Behalve de hier¬ 
boven beschreven opties zijn er ook nog 
een aantal special effects en trucages mo¬ 
gelijk. Het is alleen jammer dat die veelzij¬ 
digheid het programma ook enigzins be¬ 
werkelijk maakt. Deze hoeveelheid werk 
staat echter in geen verhouding tot de 
gigantische klus van het met de hand een 
tekenfilm maken. Een andere bezwaar 
voor kritische kartonisten is de wat minde¬ 
re beeldkwaliteit bij het gebruik van huis- 
computer graphics in plaats van een echte 



videokamera en getekende plaatjes. Ieder¬ 
een die echter tevreden is met de beeld¬ 
kwaliteit van de Commodore graphics zal 
daar niet te zwaar aan tillen. • 


Het Movie Maker pakket biedt voor 
f 79, - een veelzijdige en krachtige ani¬ 
mator die de tekenfilmmaker veel werk 
uit handen neemt Het blijft nog steeds 
bewerkelijk, maar iedereen kan nu na 
wat experimenteren leuke tekenfilm- 
producties op de videorecorder opne¬ 
men. Behalve voor losse teken filmpjes 
lenen de animaties en titels zich ook 
goed als smaakmakers of een leuke 
afwisseling in gewone videofilms. 
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grootte, c 
rste twee 


Weer een bijdrage van Leon van der Torre over de verschillende sorteerroutines op de 
64, maar deze theorie is natuurlijk ook vo 


Sorteren 


rote hoeveelheden data kunnen 

Ö met een computer verwerkt 
worden. Deze data wordt dan 
opgeslagen in array’s. Soms be¬ 
staat de behoefte deze data te 
ordenen. Getallen kunnen in opvolgen¬ 
de grootte worden gerangschikt, 
adressen kunnen alfabetisch worden 
gerangschikt etc. Dit rangschikken, ook 
wel sorteren genoemd, wordt meestal 
in machinetaal gedaan, aangezien ba- 
sic pijnlijk langzaam sorteert, zoals u 
weldra zult merken. 

Er zijn vele manieren om data te sorteren. 
De beste manier is afhankelijk van soort en 
hoeveelheid data. Enige manieren staan in 
programma 1. Door het aantal te sorteren 
getallen te veranderen in regel 20, bijvoor¬ 
beeld L=500, kunnen de snelheden van de 
vier verschillende manieren vergeleken 
worden. Duidelijk is al, dat basic te lang¬ 
zaam is voor sorteren. Bij een kleine hoe¬ 
veelheid data kan al een koffie-break inge¬ 
last worden, bij een grote hoeveelheid kan 
de computer een heel • etmaal doorre¬ 
kenen. 

De eerste manier (regel 110-120) staat 
bekend als de bubblesort. Het is de be¬ 
kendste en meest gebruikte manier van 
sorteren. Het is echter lang niet de snelste. 
Manier twee (regel 210-230) bevat een 
voorsorteerroutine (regel 210), die het sor¬ 
teren al versnelt, vooral bij grotere hoeveel¬ 
heden data. De laatste manier blijkt de 
snelste te zijn. 

Er zijn natuurlijk nog meer manieren te 
verzinnen. Door regel 110 en 120 te ver¬ 
vangen met uw eigen routine, kunt u deze 
vergelijken met de andere manieren. 

Opbouw array 

Om een array te kunnen sorteren in machi¬ 
netaal, moeten we eerst weten hoe deze is 
opgebouwd. Het blijkt dat elke array an¬ 
ders is opgebouwd, afhankelijk van de 
soort variabelen en de dimensie van de 
array. Figuur 1 geeft de opbouw weer van 
de verschillende soorten array’s. 

Elke array blijkt te worden voorafgegaan 
door een header. Deze header bevat infor¬ 


matie over 
sie etc. De 
der bevatten" de arraynaam. Aangezien 
voor elke variabele slechts de eerste twee 
karakters van belang zijn, is dit dus ge¬ 
noeg. Als de arraynaam maar een karakter 
groot is, staat in de tweede byte de waarde 
128. De volgende twee bytes zijn een 
pointer naar de volgende array. Indien er 
geen volgende array is, is het adres in de 
pointer kleiner dan het startadres van de 
array. De volgende byte geeft de dimensie 
aan. De laatste bytes geven het aantal 
elementen aan, indien de dimensie groter 
is dan 1 volgen ook het aantal elementen 
van de andere dimensies. 


de informatie van de 
Bij een integer array 
worden de getallen achter elkaar ge¬ 
plaatst. Aangezien een integer getal tus¬ 
sen -32768 en +32767 ligt, zijn voor elk 
getal twee bytes nodig. Bij floating point 
array bestaat elk getal uit vijf bytes, de 
eerste geeft de exponent van het getal, de 
andere vier het getal zelf. 

String array’s worden anders opgeslager 
Na de header komen de strings zelf niet 
maar er staat een pointer en de lengte va 
de string. Het adres in de pointer geeft de 
geheugenplaats aan, waar de string staat 
Bij array’s van tweede of grotere dimensie 
staat na de header eerst element (0,0), 


Figuur 1 

HB = Hiqh Byte 
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Sociocommunicatie 

Misschien is het een desillusie, maar we 
zijn er langzamerhand achter, dat een huis- 
computer vooral een hobby-artikel is. De 
gouden bergen achter de Basic-horizon, 
de ongekende mogelijkheden van een ei¬ 
gen computer, vallen in de praktijk tegen. 
De beloftes over de verrijking van ons 
dagelijks leven zijn maar gedeeltelijk ge¬ 
realiseerd, de computer thuis is een leuk 
speeltje en vormt een goede basis voor 
wie beroepsmatig met computers te ma¬ 
ken heeft, maar is bij lange na nog niet 
onontbeerlijk. 

Laten we eens kijken naar een van die 
toepassingen, waarvoor zo’n enorme toe¬ 
komst voorspeld werd, namelijk de Elec¬ 
tronic Mail”. In ons land lopen we daarin 
behoorlijk achter, mede door een traag 
PTT-beleid en omdat de apparatuur (mo¬ 
dems) nog niet goedkoop genoeg is. Maar 
zelfs wanneer dat wel het geval is, zoals in 
de Verenigde Staten, dan gebruikt men 
datacommunicatie toch voornamelijk voor 
database access. Dat wil zeggen, men 
sluit de computer via het modem aan op 
een databank, waarin informatie zit en men 
vraagt die dan op. 

Dat kunnen ”downloadable” software-pro- 
gramma’s of beurskoersen zijn, financiële 
of zakelijke informatie, literatuurverwijzin¬ 
gen of prijzen van goederen, maar meestal 
heeft de informatie wel een zakelijk karak¬ 
ter. In dat opzicht vervult Viditel in ons land 
een soortgelijke functie, de zakelijke ge¬ 
bruiker kan daar een heleboel nuttige infor¬ 
matie uit halen. De privé-gebruiker, op wie 
men eerst mikte, wordt bij dit soort 
diensten verdrongen door de zakelijke ge¬ 
bruiker, voor wie informatie vaak direkt 
waardeerbaar is en die ook wil betalen 
voor wat hij krijgt. De interactie beperkt 
zich meestal tot het doorwerken van zoek¬ 
structuren en het eventueel reageren op 
antwoordpagina’s voor bestellingen. 

Toch is het juist de directe interactie, die 
tot de verbeelding spreekt. Een database 
met duizenden pagina’s blijft ongrijpbaar, 
het is een soort electronische encyclope¬ 
die, waarmee men weinig emotionele bin¬ 
dingen kan hebben. Het is juist de electro¬ 
nische uitwisseling van persoonlijke be¬ 
richten, die zo aanspreekt. De meeste da¬ 
tabanken bieden dan ook die mogelijkheid 
in de vorm van bulletin boards, berichten- 
pagina’s als Vidibus of electronic mail 
[ diensten. Een stap in die richting vormen 


ook de zogenaamde media-conversies 
naar bijvoorbeeld telexverkeer. 

In principe heeft de bezitter van een mo¬ 
dem en een toegangscode tot een van de 
databankdiensten daarmee een communi¬ 
catiemedium met alle andere gebruikers. 
En wanneer er ”gateways” zijn naar andere 
diensten is het aantal potentiële medege¬ 
bruikers al gauw enkele honderdduizen¬ 
den. Daarmee wordt Marshall McLuhan’s 
droom van een ”Global Village” tot werke¬ 
lijkheid, je kunt met iedereen communice¬ 
ren zoals via de telefoon of telex, alleen 
voor een fractie van de kosten van die 
laatste twee media. 

Tot zover de theorie. In de praktijk zijn het 
vooral de zakelijke gebruikers, die dit doen 
als alternatief voor telexverkeer. De gewo¬ 
ne huiscomputer gebruikers zijn wat hui¬ 
veriger, al kunnen nogal wat computer¬ 
clubs enthousiaste verhalen vertellen over 
hun ervaringen met bulletin boards, waar¬ 
op hun leden berichten uitwisselen. Weinig 
reden dus om niet te geloven in een toene¬ 
mend internationaal electronisch berich¬ 
tenverkeer. Toch wil ik daar wat kantteke¬ 
ningen bij plaatsen. Uit eigen ervaring, ik 
werk nu zo’n jaar of vier met een electronic 
mail systeem, blijkt dat maar beperkt te 
werken. Tenminste wanneer het gaat om 
echte communicatie met echte mensen 
over echte onderwerpen. En dat is niet het 
soort berichten, dat we meestal vinden in 
de bulletin boards en bij radio-amateurs, 
die het contact en de weerslag daarvan in 
een soort levensteken het belangrijkste 
vinden. In mijn ervaring is electronic mail 
voor niet-zakelijke communicatie pas zin¬ 
vol wanneer de groep gebruikers niet te 
groot is, wanneer men elkaar toch tenmin¬ 
ste af en toe in levende lijve ziet of belt en 
het onderwerp ook niet te breed is. In 
wezen dus voor communicatie tussen 
special-interest groepen, die elkaar ook 
nog af en toe zien. Berichten uitwisselen 
tussen familieleden in verschillende plaat¬ 
sen en landen is daarvan een goed voor¬ 
beeld, interne bedrijfscommunicatie een 
ander. Maar zelfs in een bedrijf komen er al 
snel problemen vanwege de noodzakelijke 
discipline. Het is nu eenmaal nodig, om 
geregeld in de mailbox te kijken om te zien 
of er berichten zijn. 

Toch ben ik zelf heel enthousiast over EM, 
het geeft me de kans, vrijwel zonder pro¬ 
blemen met mensen over de hele wereld 


berichten uit te wisselen, op een vrij 
diepgaand niveau te "converseren” en 
mijn mening te toetsen aan die van ande¬ 
ren. Daarvoor hebben we een eigen EMS- 
SALA mail systeem, dat werkt op TYME- 
NET, waarop een vrij kleine groep gebrui¬ 
kers toegang heeft. Het onderwerp, waar¬ 
over we corresponderen is beperkt tot het 
”hot news” uit de computer-industrie en 
de deelnemers zijn de topmensen uit de 
journalistiek, de market-research en de 
industrie zelf. Hun commentaar en menin¬ 
gen komen overigens in principe niet naar 
buiten, het is interne communicatie binnen 
de groep. Dat is nodig om het interessant 
te houden en een echte discussie in stand 
te houden. Maar toch blijkt, dat het essen¬ 
tieel is, dat die mensen elkaar af en toe 
zien, dat ze elkaar ontmoeten of bellen. 
Anders zakt de actieve participatie af, en 
wordt die gebruiker niet meer dan een 
inactieve naam op de gebruikerslijst. Het is 
een belangrijke taak van de systeembe¬ 
heerder, of SYSOP, om daar dan wat aan 
te doen. Hij speelt een sleutelrol, niet alleen 
in het technische, maar vooral ook het 
sociale beheer van een EM system. Mijn 
ervaring is, dat de sociale aspecten van de 
datacommunicatie veel belangrijker zijn 
dan de technische, dat zelfs deelnemers 
met beperkte computers en beperkte mo¬ 
dems toch heel actieve partners in het 
systeem kunnen zijn. Het gaat om het 
opbouwen van een soort sociale infra¬ 
structuur tussen de leden/gebruikers van 
een EM systeem of EM subgroep, want 
daar praten we eigenlijk over. Misschien is 
SOCIOCOMMUNICATIE een aardig 
woord om dat aan te duiden, het is een 
combinatie van technische functies en so¬ 
ciale interactie en participatie, met eigen 
regels en randvoorwaarden. Wat die pre¬ 
cies zijn, kan ik slechts vermoeden of 
benaderen, de wetenschap heeft zich hier 
nog niet zo in verdiept. Maar dat ze anders 
zijn dan de technische specificatie van RS 
232 en modem is wel duidelijk. Maar het 
werkt, en we gaan er zeker mee door. De 
gebruikers van mijn EM systeem hebben 
er veel plezier in, en daarbij speelt zeker 
een rol, dat we samen een ”geheimë, we¬ 
reldomspannende organisatie vormen en 
op die manier heel snel en heel exact 
kunnen uitvinden wat er op ons beperkte 
gebied aan de hand is. 
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c 016 a 5 -fb 
c 018 d 0 05 
c 01 a a 5 fc 
c 0 ic dO 01 
c 01 e 60 
c 0 if a 5 2 -f 
c 021 85 59 
c 023 a 5 30 
C 025 85 5 a 
C 027 a 9 00 


lda $fb 
bne $c01f 
lda $fc 
bne $c01f 
rts 

lda $2f 
sta $59 
lda $30 


10 REM 50RTEERMETHÜDEN SÜFTOR 
20 L"100;DIMA(4 , L > :FORX = 1 TOL 

30 A(1,X)=INT(1000*RND(1) ) :A <2,X)=A (1,X)s A(3,X)~A(1„X):A(4,X)=A 
( 1 ,X) sNEXT 
100 11$="000000 " 

110 F0RX”2T0L:FORY-LTOXSTEP-1;IFA <1,Y-1)< A(i,Y)THENNEX TY,X:GOTOi30 
120 B~A(1,Y—l):A <1,Y~1)«A(1,Y):A(1,Y)=BsNEXTY, X 
130 A$(1)=TI$ 

200 TI$="000000" 

210 FOF?X~iTOL/2: IFA (2, X ) < A <2, X+L/2) THËNNEXT:GOTO230 
220 B=A(2,X)s A<2„X>=A<2,X+L/2)s A(2,X+L/2)=B:NEXT 

230 FORX=2TOLï FORY=LTOXSTEP-1: IFA < 2,Y-1)< A(2,Y)THENNEXTY,X:6OTO250 
240 B=A <2« Y-1): A (2,Y--1)~A(2, Y):A(2,Y)~B:NEXTY„X 
250 A$(2)~TI$ 

300 TI$="000000" 

310 C=0: FORX = 1TOL--1: IFA <3, X ) >A (3, X+l ) THENB=A <3„ X ) : A <3, X > =A (3, X + i ) 

5 A < 3,X +1)~B:01 
320 NEXTX:IFO1THEN310 
330 A$ <3)~TI$ 

400 TI$=“000000" 

410 F0RX=1T0L“1 : C=X: FORY=X + lTOLs IFA <4, Y) <A(4,C) THEIMC=Y 
420 NEXT:B=A<4,X) : A (4,X)=A <4,0 sA<4,C>=B:NEXT 
430 A$(4)“TI$ 

500 PRINT"»"*s FORX“lTOLs F0RY-1TÖ4:FRINTA(Y,X) , : NEXTY f X 
510 PRINT:PRINT"SORTEERT IJDEN";L;”GETALLEN":FORX~1T04:PRINTA$(X >, 

: NEXT 


lda 4$00 


C029 85 ff 
c02b 85 fd 
c02d 85 fe 
c02f a5 5a 
C031 85 58 
C 033 T a5 59 
c035 85 57 
C037 18 
C 038 69 03 
c 03 a 85 59 
c03c 90 02 
c03e e6 5a 
C040 a0 0a 
c042 b1 57 
C044 85 5f 
C046 bl 59 
C048 85 60 


c 1 c 

adc #$03 
sta $59 
bcc $c040 
inc $5a 
Idy #$0a 
lda ($57) 
sta $5f 
lda ($59) 
sta $60 


c 04 b bl 57 


lda ($ 57 ) 


c 04 d 85 5 b 


c 04 f bl 59 
c 051 85 5 d 


lda ($ 59 ) 
sta $ 5 d 


% ny 

lda ($ 57 ) 
sta $ 5 c 
lda ($ 59 ) 
sta $ 5 e 
ldy #$ 0 O 
lda <$ 5 d) 
cmp ($ 5 b) 
bcc $c 073 
bne $c 086 
i ny 

cpy $ 5 -f 
beq $c 086 
cpy $60 
ben $c 073 
bne $c 05 e 
bne $c 01 f 
ldy #$ 0 c 
sty $ff 
lda ($ 57 ) 
t a >' 

lda ($ 59 ) 


lda ($ 59 ) 
sbc ($ 57 ) 
bes $c 060 
i ny 

sty $ff 


C048 bl 59 
c04a f1 57 
c04c h0 12 
c04e c8 
c04f 84 -ff 


ldy #$05 
lda ($ 2 f) 
sta $fc 
iny 

lda <$ 2 f) 
sta $fb 
sec 

lda $-fb 
sbc #$01 
sta $fb 
bes $c 016 
dec $fc 
lda $fh 
bne $c 01 f 
lda $fc 
bne $c 01 f 
rts 

lda $ 2 f 
sta $59 
lda $30 
sta $ 5 a 
lda #$00 


lda ($57),y 
tai-! 

lda ($59),y 
sta ($57 ),y 


c 051 bl 57 
C 053 aa 
C 054 bl 59 
c 056 91 57 
C 058 8 a 
C 059 91 59 
c 05 b 88 
c 05 c c 0 09 
c 05 e -f0 f 1 
C060 e6 -fd 
c062 dO 02 
c 064 ei) fe 
C 066 a 5 fd 
C 06 B c 5 fb 
c 06 a d 0 c 3 
c 06 c. a5 fe 
c06e c5 fc 
C 070 d 0 bd 
c072 a5 ff 
c074 fO aB 
C 076 d 0 93 


sta ($ 59 ) 
dey 

cpy #$09 
beq $c 051 
inc $fd 
bne $c 0 óó 
inc $fe 
lda $fd 
cmp $fb 
bne $c 02 f 
lda $fe 
cmp $fc 
bne $c 02 f 
lda $ff 
beq $c 01 e 
bne $c 00 b 


c07c 91 57 
c07e 8a 
c 0 7 f 91 59 

C081 88 

c082 c 0 0 a 
c084 10 fl 
c086 eó fd 
C088 d0 02 
c08a e6 fe 
c08c aS fd 
c08e c5 fb 
C090 d0 9d 
C092 a5 fe 
C094 c5 fc 
C096 d0 97 
C098 a5 ff 
c09a f0 82 
c09c 4c 0b c 0 


ta ($57) 


sta $ff 
sta $fd 
sta $fe 
lda $ 5 a 
sta $58 
lda $59 
sta $57 
clc 

adc #$02 
sta $59 
bcc $c 040 
inc $ 5 a 
ldy #$0a 
sec 

lda ($ 59 ) 
sbc ($ 57 ) 
dey 


C029 85 ff 
c 02 b 85 fd 
c 02 d 85 fe 
C02f a5 5a 
c 031 85 58 
C 033 a5 59 
C 035 85 57 
C 037 18 
C 038 69 02 
c 03 a 85 59 
c 03 c 90 02 
c 03 e eó 5a 
c040 a@ 0a 
C 042 38 
c 043 bl 59 
C 045 fl 57 
c 047 88 


sta ($ 59 ) 
dey 

cpy #$ 0 a 
bpl $c 077 
inc $fd 
bne $c 08 c 
inc $fe 
lda $fd 
cmp $fb 
bne $c 02 f 
lda $fe 
cmp $fc 
bne $c02f 
lda $ff 
beq $c01e 
imp $c0Ob 


ldy #$05 
lda ($2f ) 
sta $fc 
i ny 

lda ($ 2 f) 
sta $fh 
sec 

lda $fb 
sbc #$01 

sta $fb 
bes $c016 
dec $fc 


C 053 

c 8 


C 054 

bl 

57 

c 056 

85 

5 c 

C 058 

b 1 

59 

c 05 a 

85 

5 e 

c 05 c 

a 0 

00 

c 05 e 

bl 

5 d 

C 060 

dl 

5 b 

C 062 

90 

0 f 

C 064 

d 0 

20 

C 066 

cB 


c 067 

c 4 

5 f 

C 069 

f 0 

ib 

C 06 b 

c 4 

60 

c 0 ód 

f 0 

04 

C 0 óf 

d 0 

ed 

c 07 1 

d 0 

ac 

C 073 

a 0 

0 C 

C 075 

84 

ff 

C 077 

bl 

57 

C 079 

aa 


c 07 a 

bl 

59 


C 000 

a 0 

05 

C 0 O 2 

bl 

2 f 

C 004 

85 

f c 

C 006 

c 8 


C 007 

bl 

2 f 

C 009 

85 

f b 

C 00 b 

38 


C 00 C 

a 5 

f b 

c 00e 

e? 

01 

C 0 1 0 

85 

f b 

C 012 

b 0 

02 

c 014 . 

có 

•fc 

c 016 

a5 

f b 

c 018 

dO 

05 

c01 a 

a 5 

f c 

C 01 C 

d 0 

01 

c 01 e 

60 


C 0 1 f 

a 5 

2 f 

c 021 

85 

59 

C 023 

a 5 

30 

C 025 

85 

5 a 

C 027 

a 9 

00 


C 000 

a 0 

05 

C 002 

bl 

n.f 

.u. t 

C 004 

85 

f C 

C 006 

c 8 


C 007 

bl 

2 f 

C 009 

85 

f b 

C 00 b 

38 


C 00 C 

aS 

fb 

c 00 e 

e 9 

01 

C 0 1 0 

85 

fb 

c 012 

bO 

02 

c 014 

CÓ 

f c 
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Programma 2 


10 REM BUBBLESORT INTEGER ARRAY SOFTÜR 
20 T~0i FORX—49152T049271: READA: F'OKEX , As T-T+A: NEXT 
30 IFT< > 17967THENPRINT"PFOUT IN DATA <!!":END 
40 REM SYS49152 SORTEERT INTEGER ARRAY 
50 REM VOORBEELD 

60 N= 100 s DI MA*/, (N) ; FQRX = 1 TON: A7. ( X ) = 1 00#RND (1) : NEXT 

70 F0RX = 1 TON: PRINTA7. (X) ; : NEXT: SYS49152: PRINT: PRINT: FORX=lTON: 


PRINTA%(X)5:NEXT 


1 00 

DATA 

160 

5 

cr 

177 „ 47 , 133 

101 

DATA 

nco 

•tL. w jX* 

5 

200 

, 177 , 47 „ 133 

102 

DATA 

251 

5 

56 | 

4 j cr cr 4 

X QJ * mLxJL 5 zoo 

103 

DATA 

1 , 

1 

■ x n y 

251 ,176 „ ' 2 

104 

DATA 

198 

J» 

**2 cr 

4»«« w 

, 165 , 251 , 208 

105 

DATA 

5 , 

165 , 

a- W 9 JU V W q 1 

106 

DATA 

96 , 


165 , 

47 9 133 , 89 

107 

DATA 

165 

n 

48 , 

133 , 90 , 169 

108 

DATA 

0 , 

1 

—r “*r 

o-_. , 

nere* 4 77 

AhÜw 9 X 1 9 oL w 

109 

DATA 

j «jr “T 

1 

«• 

254 

, 165 , 90 , 133 

110 

DATA 

88 , 


165 , 

89 5 133 , 87 

111 

DATA 

24 , 


105 , 

2 , 133 , 89 

112 

DATA 

144 


O 

oL 9 

230 , 90 , 160 

113 

DATA 

10 , 


wi 6 , 

177 , 89 , 241 

1 14 

DATA 

87 , 


136 , 

177 , 89 , 241 

1 15 

DATA 

87 , 


176 , 

18 , 200 , 132 

116 

DATA 

neer 

4 

177 

, 87 , 170 , 177 

1 17 

DATA 

89 , 


145 „ 

87 , 138 , 145 

1 18 

DATA 

89 , 


136 , 

192 , 9 , 240 

119 

DATA 

241 


230 

, 253 , 208 , 2 

120 

DATA 

230 


254 

, 165 , 253 , 197 

121 

DATA 

4~ V_J Ju 


208 

, 195 , 165 , 254 

* 

DATA 

197 


i-s cr r-y 
■tl. \J jU 

, 208 , 189 , 165 

. ^ 

«l» !>«■! 'm’ 

DATA 

CT 

ih* V«r Wr 


240 

, 168 , 208 , 147 


Programma 3 


10 rem bubblesort string array so-ftor 

20 t=0: «f orx=49152to49310: reada: pakex , a: t~t+a: nèxt 

30 i-f t< >22550thenpr int"-f out in data ! I ! ":end 

40 rem sys49152 sorteert string array 

50 rem voorbeeld 

60 n=100: dima$ (n) : -f orx = lton: a$ Cx ) =chr$ (65+26*rnd < 1) > : next 
70 forx=lton:printa$(x);:next;sys49152:print:print: i orx=lton 


P 

r inta$ O 

• ^ « « p 

V J lf « 1 

G 

X t 






1 

00 

data 

160 

5 

cr 

vJ * 

1 

77 , 

47 , 


4 *7** 

i - 2 » - 2 * 

1 

01 

data 

nern 

jL. \— J 4— 

n 

200 

•1 

177 

, 47 


, 133 

1 

02 

data 

251 

5 

56 , 


165 

nc < 
42 v-J X 


'■*“! **r r *T r 

5 X- * 2 * 

1 

03 

data 

1 , 

1 



51 , 

176 

5 

O 

1 

04 

data 

198 

5 

'~icr«n 

4*.t wi 4, i 

5 

165 

'~>cr 

q Am wJ 

1 

, 208 

1 

05 

data 

5 , 

1 

65 , 

«*■«. \J 4i ^ 

208 

!* 

1 

1 

06 

data 

96 , 


1 65 


47 , 

133 

5 

89 

1 

07 

data 

165 

5 

48 , 


4 "7 *7 

x ó *2» 

90 

5 

169 

1 

08 

data 

0 « 

1 

*~v -n» 

rn 

4p 

55 , 

j **7* 

? 

cr T 

2 » wl •«.* 

1 

09 

data 

1 33 

n 

254 


1 65 

, 90 


9 X - 2‘0 

1 

10 

data 

88 5 


165 , 


89 , 

4 **7* >7 

1 - 2 * *- 2 » 

y 

87 

1 

1 1 

data 

'~>A 


105 , 


» «~r -jr 

• 2 * ^ 1 - 2 » - 2 » «1 


89 

1 

i o 

data 

144' 

5 

O 

X- *1 

O 

■Imh 

30 , 

90 , 


160 

1 

13 

data 

10 , 


177 , 


87 , 

4 

I - 2 ‘ - 2 * 

? 

95 

1 

14 

data 

177 


89 , 


133 

96 

5 

200 

1 

15 

data 

177 

? 

87 , 


133 

91 

5 

177 

1 

16 

data 

89 , 


133 , 


93 , 

200 

5 

177 

1 

17 

data 

87 , 


. --T 

X •-'* * 2 l q 


V 4^ <( 

177 

j 

89 

1 

18 

data 

133 

5 

94 , 


160 , 

0 , 


177 

1 

19 

data 

93 , 


209 , 


91 , ’ 

144 

5 

15 

1 

20 

data 

208 

5 

"7 


200 , 

196 


„ 95 

1 

O 1 
■<■■■' X 

data 

240 

H 

27 , 


196 . 

96 

5 

240 

1 

4»» »* 2 . 

dat a 

4 , 

F' 

42, 

08 , 

o 

«fc ■■ 

37 , 

208 

5 

172 

1 

<■—j 

data 

160 

<1 

12 , 


1 T ^ 

4. * — ^ iAiii 1 

nerer 
2 •—' \-J 


, 177 

1 

24 

data 

87 , 


170 , 


177 , 

89 

? 

145 

1 

cr 

4 — \J 

data 

87 , 


138 , 


145 , 

89 

?! 

•| ~?jL 

1 ~‘a 

i 

26 

data 

192 


10 , 


16 , 

241 

5 

230 

1 

'~>~7 

4 — / 

data 

^cr-r 

n 

208 


X- «i 

230 

5 

254 

1 

28 

data 

165 

? 

,ri ji" 


197 

n cr 

K ->— W 

1 

, 208 

1 

oo 

data 

-t cr-7 

J. vJ / 

f» 

i y cr 

1 Dw« 


254 

? X * 

7 

FCF 

t| 4 m. Wrf 4.i ii 

1 

30 

data 

208 

n 

•i cr i 
ijl 

* 

165 

cr 

5 

, 240 

1 

'■'T ^ 

d a t a 

130 

n 

76 , 


11 , 

192 




vervolgens de elementen (1,0), (2,0), 
(3,0)...(n,0), (0,1), (1,1), (2,1), (3,1)...(n,1), 
(0,2), (1,2) etc. Het maakt natuurlijk niet uit 
of deze array strings (zoals in figuur 1) 
getallen bevat. 

De programma’s 

De programma’s werken beide volgens 
het bubblesortprincipe. Programma 2 sor¬ 
teert integer array’s, programma 3 sorteert 
string array’s. In beide programma’s staat 
een voorbeeld. Indien u verstand van ma¬ 
chinetaal heeft moet u zelf maar eens 
proberen een sorteerroutine te maken 
voor floating point array’s, twee dimensio¬ 
nale array’s etc. 

De programma’s beginnen met het aantal 
elementen in te lezen uit de header ($cooo- 
$c009). De array die gesorteerd wordt is 
altijd de eerste in het geheugen. Het start- 
adres van deze array is het startadres van 
het arraygeheugen. Dit adres staat in een 
pointer op $002f. Bij programma 2 worden 
in $c042-$c04c de getallen vergeleken en 
desgewenst omgeruild in $c051-$c05e. 
Bij programma 3 worden de twee strings 
vergeleken in $c05c-$c06d en omgewis¬ 
seld in $c077-$c084. Zoals u gemerkt zult 
hebben, hebben de twee programma’s 
vele overeenkomsten. 

De hier gegeven programma’s zijn in de 
meeste gevallen snel genoeg. Het kan 
allemaal echter nog sneller en beter. Met 
de hier geboden informatie moet u in staat 
zijn zelf sorteerroutines te schrijven. Indien 
u dit doet, schroom dan niet en stuur het 
programma naar Commodore-lnfo. Wie 
maakt de snelste? 

Leon van der Torre. m 
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Print-out 


Met o.a.: Speedkit — Woorden raden — 

Paranormaal — Tekstwerker C-16 


Voor de C-16 hebben we eigenlijk een grote wens, 
namelijk meer Utilities te kunnen plaatsen. Een utility kan 
een sorteerprogramma zijn, een handige routine om te 
scrollen, een leuk schermeffekt geven en nog veel meer. 
Het is niet onverstandig om deze routines te verzamelen. 
Met een utility kan men namelijk eenvoudig dingen berei¬ 
ken waar normaal gesproken een behoorlijke kennis van 
de computer voor nodig is. Ook kan het u het moeizame 
proces van het zelf ontwikkelen van een routine bespa¬ 
ren. Ook in dit nummer schotelen wij u een paar van deze 
meesterstukjes van de programmeurskunst voor. 

Voor de C-16 krijgen wij helaas nog geen Utilities opges¬ 
tuurd, wel volop leuke programma’s en daar treft u er in dit 
nummer een aantal van aan. Opvallend is de hoge kwali¬ 
teit van de programma’s die in Basic versie 3.5 zijn 
geschreven. 


Inhoud van dit listingdeel 


Checksum 


Speedkit 
Spritemaker 
Blokklok 
Woorden raden 


Schuifspel 49 

Adres onbekend 51 
Paranormaal 55 

Tekstwerker C-16 57 


Rob van den Heuvel. 


Syntax Checksum 


Het overtikken van een listing kan een heel karwei zijn en als u 
een beetje normaal mens bent dan maakt u daarin beslist een 
aantal fouten. Nu is niets moeilijker om de fouten uit je eigen 
werk te halen. Al geruime tijd geleden heeft Jan Bodzinga 
hiervoor een zgn. Checksum-programma geschreven. Om de 
vele nieuwe lezers van Commodore-lnfo te helpen volgt hieron¬ 
der nog een keer een volledige uitlegh over de werking van dit 
programma, waarmee het, hoe vreemd dat misschien ook lijkt, 
echt mogelijk is om met behulp van dit programma de fouten in 
elke door ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

O U tikt de listing heel zorgvuldig over en SAVEt hem voordat u 
het programma RUNt op een diskette of een cassette. 

0U tikt het RUN commando in. Mocht het programma de 
boodschap ’Fout in dataregels!’ geven dan heeft u een fout 


90 

95 

100 


110 


120 


130 


rem ******************************* 
** 

rem basic loader "SYNTAX.CHECKSUM" 
rem na de commando’* ’run’ en ’new’ 
rem blijft dit programma in het ge¬ 
ren» heugen, laad het te testen pro — 
rem gramma en tik daarna sys 49152. 
rem ******************************* 
* * 

i-49152 srem beginadres 

reada:ifa<Othen40:rem data ingeleze 

n 

pokei,aii*i+l:b=b+a:gqto20 
i f b< >l6844thenprint"CCLR-HOME 1 fout 
in dataregels!":b = 0:end 
poke4?184, 148ï poke49185, 192 
i=49300 

read a: ifa<0then80 
pokei,a:b=a+bsi=i+i:gato60 
if b< >20068 thenpr int " [ CLR-HOME 1 -f out 
in dataregels! (vanaf regel 240)": 
b = 0 ï end 

pr inf'data is weggezet" 
pr int"checksum testen met sys49152" 
data 165,43,166,44,133,163,134,164, 
169, 147 

data 32,210,255,160,0,240,3,32,73, 
192 

data 32,73,192,208,1,96,32,225,255, 
208 

data 3,76,116,164,32,81,192,32,73,1 
92 


140 data 240,12,201,32,240,247,24,101,1 
67,133 

150 data 167,76,37,192,166,167,169,0,13 
2,168 

160 data 32,205,189,169,13,32,210,255,1 
64, 168 

170 data 76,17,192,200,208,2,230,164,17 
7, 163 

180 data 96,162,0,189,123,192,240,6,32, 
210 

190 data 255,232,208,245,32,73,192,170, 
32,73 

200 data 192,132,168,32,205,189,162,3,1 
69,32 

210 data 32,210,255,202,208,250,169,0,1 
33,167 

220 data 164,168,96,82,69,71,69,76,32,0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data —1 


*** EINDE LISTING *** 


syntaxchecksum 1isttestprogramma 


regel 1 
regel 2 
regel 3 
regel 4 
regel 5 


249 

84 

125 

2 

246 


regel 
regel 
regel 
regel 
regel 
regel 
regel 
r eg e 1 
regel 
regel 
regel 
regel 
regel 
r eg e 1 
regel 
regel 
regel 
regel 
regel 
r eg e 1 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 


6 

7 

10 
20 
30 
40 
50 
55 
60 
70 
80 
90 
95 
100 
1 10 
120 
130 
1 40 
150 
160 
170 
1 80 
190 
200 
210 
220 
230 
240 
250 
260 
270 


152 

249 

157 

64 

38 

57 

14 

251 

192 

42 

244 

245 
237 

183 
158 
232 
183 
96 
96 
127 
71 
223 
73 
79 
109 
1 06 
225 
16 
1 63 
92 
225 


ready. 
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XM 


bij het overtikken gemaakt. Herstel de fout en SAVE de 
verbeterde versie. Mocht het programma met de boodschap 
’data is weggezet checksum testten met sys ....’ komen dan 
is tot dusver alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic geschreven. 
Als u een programma heeft overgetikt SAVE het eerst, mocht er 
iets mis gaan dan hoeft niet de gehele listing opnieuw te gaan 
intikken. Als u nu een programma op fouten wilt gaan controle¬ 
ren dan kunt u dat in het geheugen laden (wel eerst het 
checksumprogramma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 49152 (C-64) of 
sys 1536 (C-16 en Plus/4) in. 

Als alles goed is gegaan loopt er nu een rij regelnummers over 
het scherm met getallen erachter. Dezelfde lijst staat ook achter 
elk door ons geplaatste programma. Wijkt nu een nummer 
achter een regelnummer af van het nummer dat in het blad staat 
dan heeft u in die regel iets anders ingetikt dan er in het blad 
stond. U kunt de stroom getallen d.m.v. de RUN/STOP toets 
pauzeren en weer vervolgen met de F1 of F7 toets. Het is 
uitermate belangrijk dat u goed met dit programma overweg 
kunt en mocht U het niet goed werkend krijgen bel dan gerust 
even met onze listingservice telefoonlijn. 
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dat a196, 193,224, 193,237,246, 184, 193 
data217, 194, 118, 192, 1, 195, 153, 195 
data32,163,253,162,56,206,1,222,142 
data3,222,169,170,205,2,222,169,255 
datal 41,0,222, 162,60,206, 1,222, 142 
data3,222,141,0,222,141,2,222,76,91 
data255,162,4,189,185,205,157,166,2 
data202,208,247,96,32,188,246,32 
d at a225,255,240,3,76, 114,254, 162,27 
data32,57,192,32,123,227,166,184 
data208,3,76,10,247,32,15,243,208,3 
data76,254,246,166,152,224,10,144,3 
data76,251,246,230,152,165,184,157 
data89,2,165,185,9,96,133,185,157 
dat a109,2, 165, 186, 157,99,2,240,63 
data201,16,176,59,201,4,176,3,76 
datal21,243,32,125,204,240,3,76,127 
data243,32,196,192,96,165,185,48,36 
datal 64, 183,240,32,32, 195,204, 165 
datal85,9,240,32,173,204,165,144,16 
data3,76,241,243,160,0,177,187,32 
datal 49,204,200, 196,183,208,246,32 
datal 85,204,24,96,32,20,243,208,249 
data32,31,243,138,72,165,186,201,16 
datal76,18,201,4,176,3,76,157,242 
data32,125,204,240,3,76,238,242,32 
d at a236, 195,76,24 1,242,32, 15,243 
data208,55,32,31,243,165,186,201,4 
data 176,3,76,25,242, 170,32, 125,204 
data240,4,138,76,56,242,32,192,204 
dat al 65, 185,48,3,32,237,204,32, 163 
d a t a 205,32, 176,20 4, 138,36, 144, 16,3 
data76,7,247,133,153,24,96,32,15 
data243,240,3,76,1,247,32,31,243 
dat al 65, 186,201,16, 176,35,201,4, 176 
data3,76,91,242,170,32,125,204,240 


: 
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UTILITIES 1 


Speedkit 


Regelmatig plaatsten wij de meest uiteenlopende hulpprogram¬ 
ma’s voor de Commodore-64; tot nog toe echter nog geen 
turbo- programma. Met behulp van een dergelijk programma 
wordt het mogelijk om andere programma’s vele malen sneller 
te laden en saven van en naar band. 

Een dergelijk programma biedt grote voordelen, het is dan ook 
aan te raden dat lezers die nog geen snellader programma 
bezitten de moeite van het intikken nemen. 


rem speedkit 64 / commodore 64 
rem door al-fons uytdehaag 
rem roosendaal / 01656-255 
rem 301 
rem 

rem eerst dit prg laden en runnen, 
rem daarna deel 2 laden en runnen, 
rem 

pok e53280, llspoke53281,15r poke646,0 
pr intchr*(147) ;tab<52> "speedkit 64" 
printtab (248) "16 sec. geduld a u . b . " 
clrs a®49152 s b®51011 

■forx=atobsreadt ss = s + t: pokex,t:next 
if b< >243128thenprint"datafouten"« stop 
printtab (200) "laad nu£2xspatie3 p dee 
1 2'"«end 


38 

40 

100 

101 

102 

103 

104 

105 

106 

107 

108 
109 
1 10 
111 
1 12 
113 
1 14 

115 

116 
1 17 
118 
1 19 
120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 
1 36 

137 

138 

139 

140 


i 2 r 11 i end 

i 

rem ******* data ********* 

data234,234,234,234,234,234,234,234 
data234,234,234,234,162,25,160,192 
data32,25,253,88,76,215,197,234,242 
data201,197,118,192,71,254,126,160 
data238.192.19.193.74,193,221,194 

n t ■? •“s a. 4 tn >i 4 oT 


142 

255 

42 

,91 

6,2 

*27 


I BUI 


204 

163 

6,3 


, 176 
240 


141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 i 

214 i 


dat a4, 138,76,122,242,32,195,204,32 
- datal69,204,138,36,144,16,3,76,7 
: data247, 133, 154,24,96,201,21,144, 16 
data72,138,72,152,72,169,63,141,3 
dat a221,141,1,221,76,177,193,72,138 
data72,152,72,169,4,13,0,221,141,0 
dat a221, 169,255, 141,3,221,169,0,32 
data20,194,32,41,194,169,0,32,20 
datal94,165,186,133,154,76,168,230 
datal 65, 153,201,4,176,15,76,62,241 
data76,168,230,165,153,201,4,176,3 
data76,87,241,32,125,204,240,3,76 
datal 73,241,165, 144,240,4, 169, 13,24 
data96,76,74,205,72,165,154,201,16 
data176,19,201,4,176,3,76,203,241 
data32,125,204,240,3,76,215,241,104 
data76,149,204,104,72,133,215,138 
data72,152,72,165,154,201,21,176,60 
data32,41,194,32,59,204,32,20,194 
data76,168,230,120,141,1,221,173,0 
data221,41,251,141,0,221,9,4,141,0 
dat a221 , 141,36, 162,96,169,6,133, 163 
datal69, 16,44, 13,221,208,244,202 
data208,248,136,208,245,198,163,208 
data241 , 104, 104,104,76,241,243, 165 
data215,48,14,240,62,201,10,240,58 
data201,13,240,38,201,32,176,24,201 
datal 60,176,20,164,154,192,21,208 
datal 4,72, 169, 102,32, 151,194, 169,47 
dat a32,151,194,104,9,64,201,192,144 
data6,201,224,176,2,73,160,168,140 
data 119, 162,16,2, 160,95,185, 152,206 
data48,6,32,151,194,76,168,230,168 
datal85,152,206,240,247,32,151,194 
data200,208,245,44, 134,234,-240, 16 
datal 62,55, 142, 1,221,162,40, 134, 163 
data198,163,208,252,202,208,249,162 
data5,134,163,134,171,142,182,162 
data44,1,221,80,14,198,163,208,247 
data198,171,208,243,202,208,240,76 
data62,194,141,1,221,44,1,221,80 
dat a251, 162,128,202, 16,253,142,1 
data221,96,169,0,133,152,162,3,32 
data 125,204,240, 12,165,154,201,16 
datal 76,3,76,53,243,76,60,243,228 
datal 54, 176,3,32, 185,204,228, 153 
data 176,3,32, 182,204,76,67,243, 133 
datal 47, 169,0, 133, 144, 165, 186,201,2 
data208,5,198,186,76,5,202,201,4 
datal 76,3,76, 167,244,32, 125,204,240 
data3,76,184,244,166,185,32,175,245 
datal 69,96, 133, 185, 164, 183,240,97 
data32,196,192,32,166,204,32,74,205 
datal 33, 174, 169,2,36, 144,208,77,32 
data74,205,133,175,138,208,8,165 
datal 95, 133, 174, 165, 196, 133, 175,76 
data210,245,169,253,37,144,133,144 
data32,225,255,240,53,32,74,205,170 
data 169,2,36, 144,208,235, 138, 160,0 
datal96,147,208,2,145,174,209,174 
data240,5,169,16,32,28,254,230,174 
data208,2,230,175,36,144,80,207,32 
datal82,204,32,236,195,76,169,245 
data76,4,247,76,16,247,32,236,195 
datal69,0,56,96,32,142,251,165,186 
d at a201,2,208,7, 169,20,133, 171,76 
dat a97,201,201,4, 176,3,76,237,245 
data32,125,204,240,3,76,250,245,169 
data97,133,185,164,183,240,207,32 
data 196, 192,32, 195,204,32, 169,204 
datal60,0,32,142,251,165,172,32 ,149 
dat a204,165,173,32,149,204,32,209 
data252,176,12,32,225,255,240,176 
datal 77.172,32,219,252.208.236.32 
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213 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 
233 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 


data185 
data 165 
dat a32, 
data30, 
dat a165 
d at a122 

rlaf * ~7 


UTILITIES 2 


32 , 195,204 
32.173,204 


f WA. 

4,193 
189 
4,232 

aata^iw, io,£«to p 2Ui, l , Z4W , 1*0,232 

datal89,210,205,16,250,230,193,208 
data227,230,122,136,16,231,32,121 
dat al 65, 164, 193,240,4,162,255, 134 
data58,32,130,196,76,174,167,185,49 
data206,72,185,67,206,72,76,115,0 
data56,76,144,164,36,147,16,116,165 
data58,201,250,176,110,164,57,204 


Oatal 33,88, 133,90, 169,4, 133,89, 1< 
data216,133,91,188,70,2,189,64,2 
data200,240,19,136,32,92,199,160 
datal 69,35,206,235, 164,32,12,197 
datal85,0,1,208,248,169,32,32,12 
datal 97, 192,7, 144,247, 104, 170,20: 


250 
8,41 

aataia^wa, iöv , l,^, 16*7, 0 , 145,90 
data200,96,173,167,2,172,168,2,32 
data92,199,160,0,140,36,165,200,185 
data255,0,72,9,32,153,118,2,104,208 
dat a243, 132,198,96,32, 121,0,240, 19 
data 160,0,32,85, 197,240, 12,201,44 
dat a208, 108,32, 115,0,32,85, 197,208 
datal00,96,176,97,32,107,169,165,20 



257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 


data153 
data21, 
dat a74, 
data166 
dat a32, 
d ata45, 


, 19 
8,56 

m m ï. CH p é A W# P V JI W ]| AUV P A. j| W4. ^ 4. IééJ / f 4 7/ 9 208 

data45,40,208,4, 1 9B, 21 , 198 , 1 75, 165 
data95, 133, 122, 165,96, 133, 123,32, 19 
data166,160,1,144,10,177,95,170,136 
datal 77,95,133,95,134,96, 165, 174 
datal97,172,165,175,229,173,141,1B3 
dat a165, 176,156,76,8, 175,32, 107, 169 
datal66,20,150,172,166,21,150,173 
data76,121,0,169,49,141,20,3,169 
data234,141,21,3,32,57,192,88,162 

J m 4 4 4 HO 4 "» 4 m A B 4 «•— —<r A ■» m ah ai 


, 173 
169 
, 162 
2, 16 
95 p 192 
32,8 
, 228 
0, 197 
, 13,32 


145 

2,83 

122 

,51 


64,6*5 
, 185 
242 
84 
226 
1,90 
,121 


UO kflV J X 

data32, 
data 197 
data67, 
data249 
data172 
data32, 
data 144 

rt m + m i nO 


198 

4,32 

160 


20 : 


data198,104,191 
datal81,89,149, 
data247,96,162 


*** EINDE LISTING $*$ 


speed kit 

regel 10 144 

regel 12 34 

regel 14 113 

regel 15 35 

regel 16 143 

regel 18 215 

regel 20 125 

regel 22 143 

regel 24 90 

regel 26 194 

regel 28 206 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


30 
32 
34 
36 
38 
40 
1 00 
101 
102 

103 

104 


244 

188 

175 

68 

58 

73 

127 

78 

144 

84 

50 
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UTILITIES 3 


r eg 

105 

155 

reg 

178 

26 

reg 

251 

130 

r eg 

106 

45 

reg 

179 

81 

reg 

252 

118 

reg 

107 

118 

reg 

180 

86 

reg 

253 

76 

r eg 

108 

127 

reg 

181 

219 

reg 

254 

17 

reg 

109 

52 

reg 

1 82 

224 

reg 

255 

79 

reg 

110 

105 

reg 

183 

23 

reg 

256 

140 

reg 

111 

143 

reg 

184 

14 

reg 

257 

24 

reg 

112 

248 

reg 

185 

42 

reg 

258 

8 

reg 

113 

129 

reg 

186 

240 

reg 

259 

87 

reg 

114 

244 

reg 

187 

84 

reg 

260 

119 

reg 

115 

120 

reg 

188 

127 

reg 

261 

124 

reg 

116 

129 

reg 

189 

240 

reg 

262 

94 

reg 

117 

91 

reg 

190 

130 

reg 

263 

132 

reg 

118 

58 

reg 

191 

146 

reg 

264 

129 

reg 

119 

42 

reg 

192 

56 

reg 

265 

8 

reg 

120 

238 

reg 

193 

131 

reg 

266 

149 

reg 

121 

115 

reg 

194 

87 

reg 

267 

152 

reg 

122 

155 

reg 

195 

247 

reg 

268 

23 

reg 

123 

31 

reg 

196 

102 

reg 

269 

236 

reg 

124 

130 

reg 

197 

82 

reg 

270 

30 

reg 

125 

30 

reg 

198 

122 

reg 

271 

21 

reg 

126 

84 

reg 

199 

78 

reg 

272 

142 

reg 

127 

133 

reg 

200 

44 

reg 

273 

33 

reg 

128 

127 

reg 

201 

80 

reg 

274 

36 

reg 

129 

36 

reg 

202 

73 

reg 

275 

99 

reg 

130 

70 

reg 

203 

47 

reg 

276 

138 

reg 

131 

241 

reg 

204 

49 

reg 

277 

102 

reg 

132 

75 

reg 

205 

92 

reg 

278 

1 

reg 

133 

75 

reg 

206 

24 

reg 

279 

1 

reg 

134 

80 

reg 

207 

34 

reg 

280 

78 

reg 

135 

82 

reg 

208 

126 

reg 

281 

143 

reg 

136 

75 

reg 

209 

39 

reg 

282 

90 

reg 

137 

244 

reg 

210 

40 

reg 

283 

81 

reg 

138 

226 

reg 

211 

119 

reg 

284 

57 

reg 

139 

131 

reg 

212 

29 

reg 

285 

151 

reg 

140 

70 

reg 

213 

31 

reg 

286 

69 

reg 

141 

76 

reg 

214 

36 

reg 

287 

24 

reg 

142 

245 

reg 

215 

139 

reg 

288 

223 

reg 

143 

124 

reg 

216 

135 

reg 

289 

22 

reg 

144 

36 

reg 

217 

34 

reg 

290 

69 

reg 

145 

130 

reg 

218 

34 

reg 

291 

67 

reg 

146 

60 

reg 

219 

39 

reg 

292 

138 

reg 

147 

71 

reg 

220 

217 

reg 

293 

3 

reg 

148 

226 

reg 

221 

253 

reg 

294 

23 

reg 

149 

98 

reg 

222 

73 

reg 

295 

1 

reg 

150 

79 

reg 

223 

25 

reg 

296 

50 

reg 

151 

81 

reg 

224 

18 

reg 

297 

150 

reg 

152 

31 

reg 

225 

140 

r e g 

298 

111 

reg 

153 

126 

reg 

226 

30 

reg 

299 

137 

reg 

154 

90 

reg 

227 

113 

reg 

300 

39 

reg 

155 

28 

reg 

228 

5 

reg 

301 

70 

reg 

156 

112 

reg 

229 

77 

reg 

302 

134 

reg 

157 

33 

reg 

230 

14 

reg 

303 

132 

reg 

158 

125 

reg 

231 

34 

reg 

304 

54 

reg 

159 

25 

reg 

232 

155 

reg 

305 

101 

reg 

160 

62 

reg 

233 

36 

reg 

306 

131 

reg 

161 

47 

reg 

234 

143 

reg 

307 

53 

reg 

162 

134 

reg 

235 

27 

reg 

308 

26 

reg 

163 

231 

reg 

236 

75 

reg 

309 

93 

reg 

164 

148 

reg 

237 

134 

reg 

310 

74 

reg 

165 

70 

reg 

238 

75 

reg 

31 1 

43 

reg 

166 

65 

reg 

239 

246 

reg 

312 

87 

reg 

167 

106 

reg 

240 

102 

reg 

313 

128 

reg 

168 

28 

reg 

241 

245 




reg 

169 

137 

reg 

242 

73 

ready. 


reg 

170 

125 

reg 

243 

245 




reg 

171 

73 

reg 

244 

231 




reg 

172 

131 

reg 

245 

34 




reg 

1 73 

95 

reg 

246 

26 




reg 

174 

82 

reg 

247 

72 




reg 

175 

20 

reg 

248 

148 




reg 

176 

114 

reg 

249 

78 




reg 

177 

140 

reg 

250 

31 
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LÏSTING programma t speedkit2 


rem speedkit deel 2 
rem 


52 

54 

56 

58 

60 

62 

64 

66 

68 

100 

101 

102 

103 

104 

105 

106 

107 

108 
109 
1 10 
111 
112 
1 13 
114 
1 15 
116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
127 


s»peek (51011) » v*»chr$(34)+"naam ,, +chr$ 
(34) 

ifs<>162thenprint"1aad en run eerst 
speedkit 64!"istop 
wit$»chr$(5)sgeel$=chr$(158):blkd*= 
chr$(144) isch$=chr$(147):hsch$ = chr$ 
(19) 

poke532Bl,6iprintsch*|witt|chr*(14) 
pr inttab(50)"speedkit 64" 
printgeel*tab(85)"disk en tape snel 
lader!" 

printblk$;tab(120) H diski C3xspatis36 
x snellerC2xspatie3" 9 
print"tapes 10 x sneller " 
print " C4xspatia]dload£ 2 xspatie3"v$j 
tab(25)"get"v$ 

print"C4xspatie 3 dsaveC 2 x 5 patie]"v$s 
tab(25)"put"va 

print"C4xspatie]dverify"v$jtab(25)" 
comp"va 

a = 51012 1 b = 52000s gosub58 
printschatab(45)"extra commando’sx" 
printtab(41)"help 1 auto x,y x renu 
m x , y " 

pr inttab (41) "del -x o-f del x- x tra 
ce 1 find x dump" 
pr inttab(41)"marge («koppelen) 
pr inttab(85)blka n x en y ziin getall 
en. 

printtab(43)blkf'restart metx sys49 
152" 

a a 52001sb«52866saa«"om te activeren" 
gosub58xsys49152 
: 

printtab(255);geela"even geduld" 
forx«atob sreadt spokex,t xnext 
printtab(45)"druk spatie.... H $a$ 
getaasifa$<>" "then64 
return 
end 

dat a254 p 24, 181,174,125,171,1,149 
datal74,232,208,246,201,250,96,32 
d at a249, 198,32,253,198,208,251,96 
datal32,98,133,99,162,144,56,32,73 
datal88,76,221,189,160,0,73,34,208 
data5,32,253,198,160,34,132,193,32 
data8,199,240,10,201,44,208,3,152 
dat a240, 14,32,115,0,161,122,240, 10 
data201,34,208,238,152,240,97,32 
datall5,0,32,110,197,14,155,167,32 
datal 42, 166, 165, 122, 133, 196,32,249 
datal98,240,73,165,193,133,15,32 
data249,198,133,58,132,57,196,172 
data229,173,144,10,165,174,197,57 
data165,175,229,58,176,4,169,1,133 
data15,160,0,32,253,198,240,209,201 
data34,208,4,69,15,133,15,165,15 
data208,237,177,90,240,25,201,34 
data240,21,201,44,208,4,166,193,240 
datal3,209,122,208,217,200,208,233 
dat&76,134,227,76,8,175,32,44,168 
data32,228,200,208,196,8,162,12,169 
data255,157,64,2,202,208,250,142,13 
d at a168, 169, 128, 133, 147,76, 114, 168 
data32,108,197,160,0,177,95,145,122 
data230,95,208,2,230,96,32,253,198 
datal65,95,197,45,165,96,229,46,144 
data233,46,44,168,76.62.198,165,45 
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128 data133 p 95, 163,4 

129 data47 ( 165,96,22 

130 data132,193,140, 

131 datal0, 38,193,74 

132 data244,165,193, 

133 data201,2,240,45 

134 data!60,2,177,95 

135 data104,32,145p1 

136 data 181,200,160, 

137 data 133, 177, 165, 

138 data!87,32,215,1 

139 datal03,32,201,2 

140 data255,141,162, 

141 datal33,35,136,1 

142 datal77,95,32,36 

143 datal71,32,215,1 

144 data95,105,7,133 

145 data59,200, 165,9 

146 data240,3,32,71, 


202,202,96,133,189,69 

215.169.8.133.163.6.189 
, 247,32,206,202, 162, 17 
32,206,202,162,14,198 

233.96.202.208.253.144 
,202,208,253,133,1,96 
3,201,0,240,249,133,171 
170,32,96,203,145,178 

192.208.246.240.48.32 

2.96.203.196.147.208.2 

209.195.240.2.134.144 

33.215.230.195.208.2 
165,195,197,174,165,196 

144.221.32.96.203.32 
140,24,171,200,132,192 
9,0,141,160,2,76,147 
3,248,32,114,202,132 
7,141,6,221,162, 1, 142 

2.115.203.38.189.165 

2.208.245.160.9.32.96 
2,240,249,196,189,208 

6.203.136.208.246.96 

3.163.32.115.203.38.189 

171.198.163.208.244.165 
69,16,44,13,220,240,251 
21,142,7,221,72,169,25 

21.104.74.74.96.32.212 
B,133,186,76,89,225,169 
,0,133,10,32,212,225 

3.186.76.111.225.32.212 


152 data32,41,127,32,71,171,201,34,20 

153 data6,165,195,73,255,133,195,200 

154 data152, 196, 196,240,2,169,0,133,1 

155 datal77,95,208,3,76,215,170,16,22 

156 data201,255,240,220,36,195,48,216 

157 datal33, 194, 162,255,232, 189, 157,1 

158 data16,250,198,194,48,246,232,189 

159 data157,160,48,194,32,71,171,208 

160 data245,162,20,201,172,208,5,32,1 

161 data0, 162,3,134,171,32,212,225,16 

162 data4,181,42,149,171,202,208,249, 

163 data56,248,32,143,246,32,114,202 

164 datal42,116,169,32,140,202,165,18 

165 data24, 105, 1,202,32, 172,202, 162,8 

166 data 185, 172,0,32, 172,202, 162,6,20 

167 datal92,5,234,208,242,160,0,162,4 

168 datal77,187,196,183,144,3,169,32 

169 data202,32,172,202,162,5,200,192 

170 data187,208,237,169,2,133,171,32 

171 data 140,202, 152,32, 172,202, 132,21 

172 data162,7,234, 177, 172,32, 172,202 

173 data 162,3,230, 172,208,4,230, 173,2 

174 data202,165,172,197,174,165,173,2 

175 datal 75, 144,231,234,165,215,32, 17 

176 data202,162,7,136,208,246,140,203 

177 datal 69,76,34,203, 165,45,56,233,2 

178 datal68,165,46,233,0,162,0,240,9 

179 data162,0,44,162,1,164,43,165,44 

180 datal34,10,134,147,132,195,133,19 

181 data 142,4, 170,32.212,225.32,5,202 


227 data141 


232 data 193,203,32, 166,204,32,74,205,32 

233 data210,255,201,13,208,246,76,182 

234 data204,160,111,32,183,171,162,8,76 

235 data2,254,141,1,2,160,2,41,254,201 

236 data48,240,1,136,152,162,0,134,144 

237 data160,2,32,249,253,169,36,141,0,2 

238 data 160,96,32, 195,203,32,196,192,32 

239 datal66,204,169,20,162,4,72,32,45 

240 data204,202,16,250,170,32,45,204,32 

241 data205,189,32,45,204,32,210,255 

242 data201,34,208,246,104,170,32,45 

243 data204,32,210,255,202,208,247,32 

244 data215,170,32,225,255,240,21,32,45 

245 data204,201,0,208,249,169,16,162,2 

246 data208,200,32,74,205,164,144,208,1 

247 data96,32,131,195,76,157,227,165 

248 data 154,56,233, 17, 168,165,215, 133 

249 datal89,144,49,201,10,208,2,169,0 

250 datal70,240,40,201,13,240,36,152 

251 data162,3,6,189,42,202,208,250,206 

252 data92,172,170,189,106,206,69,215 

253 data192,1,240,14,192,3,176,10,162,7 

254 data221, 137,206,240,4,202,208,248 

255 data96,189,144,206,96,173,3,222,41 

256 dat a251,141,3,222,173,2,222,72, 173 

257 data3,222,9,4,141,3,222,104,201,170 

258 data96,36,148,48,4,198,148,208,5,72 

259 data32,239,204,104,133,149,24,96,32 

260 data 192,204, 165, 185,48,3,32,237,204 

261 datal69,60,141,3,222,96,169,95,44 

262 datal69,63,32,197,204,208,240,169 

263 data64,44,169,32,72,36,148,16,12 

264 data169,253,141,2,222,32,239,204 

265 datal 69,0,133, 148, 169,255,206,223 

266 data 172, 141,2,222,169,4,44,2,222 

267 data240,251,169,52,141,3,222,104,5 

268 data186,133,149,173,2,222,41,80,201 

269 data80,240,67,169,56,141,1,222,169 

270 data255,141,0,222,169,60,141,1,222 

271 data 165, 149,238,8, 173,73,255, 141,0 

272 data222,169,16,44,2,222,240,251,169 

273 data247,45,2,222,141,2,222,169,255 


141 

32, 

141 


170 


144 
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274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 
31 1 


data 141,7,221, 169,25, 141,15,221,169 
data2,44,13,221,208,7,44,2,222,80 
data244,112,8,169,1,44,169,192,32 
data28,254,169,255,141,2,222,141,0 
data222,24,96,169,48,141,1,222,169 
dat a0, 141,0,222, 169,52, 141,1,222 
datal69,127,141,80,173,141,2,222 
datal69,255,141,7,221,169,25,141,15 
data221,169,2,44,13,221,208,44,169 
data4,44,2,222,208,242,169,95,141,2 


A O ? , X , ‘ï 4 ? , JL. f j£ jcL 9 D , iÖY 

data32,28,254,173,0,222,73,255,7: 
data169,223,141,2,222,169,4,44,2 
d at a222,240,251,208,8, 169,2,32,21 
data254,169,13,72,169,95,141,2,2! 
datal 04,24,96, 139,227, 13,196,124 
data 165,26, 16 7, 145, 196, 134, 174, H 
data0,1“ 

-J _ _ J 


222 


100 

,69 


85 


dat a83,0,0,0,0,210,0,0,212,67 
data65,212,0,0,0,0,0,0,0,0,0,0,0, 
data0,0,0,0,0, 200,196,199,197,200 
datal99,200,201,201,201,201,200,2 
data203,203,203,203,203,227,0,251 
dat a253, 16,104,50,217,231,234,71 
data218,137.150.147.164.173.202.1 


, 76 
217 


203 


155 

44 


W ra V. « W W p WA P V p cSL. 

data0, 32,32,0 
dat a0,0,64,96 


*** EINDE LISTING *** 


speedkit 2 


regel 10 
regel 12 
regel 14 
regel 16 
regel 18 
regel 20 
regel 22 
regel 24 
regel 26 
regel 28 
regel 30 
regel 32 
regel 34 
regel 36 
regel 38 
regel 40 
regel 42 
regel 44 
regel 46 
regel 48 
regel 50 
regel 52 
regel 54 
regel 56 
regel 58 
regel 60 
regel 62 
regel 64 
regel 66 


52 

r eg e 1 

68 

128 

143 

regel 

100 

238 

58 

regel 

101 

30 

41 

regel 

102 

58 

42 

regel 

103 

95 

50 

regel 

104 

90 

220 

regel 

105 

79 

209 

regel 

106 

21 

250 

r eg e 1 

107 

46 

183 

regel 

108 

235 

15 

regel 

109 

69 

199 

regel 

110 

87 

239 

regel 

1 1 1 

244 

203 

regel 

112 

56 

69 

r eg e 1 

113 

46 

154 

regel 

114 

96 

37 

regel 

115 

117 

203 

regel 

116 

236 

72 

regel 

117 

236 

234 

r eg e 1 

1 18 

1 17 

86 

regel 

119 

67 

143 

regel 

120 

49 

215 

regel 

121 

132 

58 

regel 

122 

120 

164 

regel 

123 

102 

44 

regel 

124 

133 

102 

r eg e 1 

125 

87 

233 

regel 

126 

162 

142 

regel 

127 

104 


reg 

128 

159 

reg 

129 

101 

reg 

130 

43 

reg 

131 

234 

reg 

132 

122 

reg 

133 

89 

reg 

134 

96 

reg 

135 

248 

reg 

136 

251 

reg 

137 

243 

reg 

138 

38 

reg 

139 

212 

reg 

140 

249 

reg 

141 

245 

reg 

142 

43 

reg 

143 

127 

reg 

144 

139 

reg 

145 

84 

reg 

146 

69 

reg 

147 

222 

reg 

148 

246 

reg 

149 

129 

reg 

150 

2 

reg 

151 

144 

reg 

152 

65 

reg 

153 

246 

reg 

154 

141 

reg 

155 

89 

reg 

156 

29 

reg 

157 

142 

reg 

158 

54 

reg 

159 

245 

reg 

160 

1 13 

reg 

161 

60 

reg 

162 

128 

reg 

163 

232 

reg 

164 

78 

reg 

165 

8 

reg 

166 

63 

reg 

167 

19 

reg 

168 

3 

reg 

169 

218 

reg 

170 

244 

reg 

171 

57 

reg 

172 

236 

reg 

173 

1 12 

reg 

174 

146 

reg 

175 

79 

reg 

176 

21 

reg 

177 

38 

reg 

178 

232 

reg 

179 

228 

reg 

180 

80 

reg 

181 

7 

reg 

182 

28 

reg 

183 

9 

reg 

184 

125 

reg 

185 

31 

reg 

186 

36 

reg 

187 

134 

reg 

188 

67 

reg 

189 

132 

reg 

190 

129 

reg 

191 

72 

reg 

192 

137 

reg 

193 

1 18 

reg 

194 

248 

reg 

195 

125 

reg 

196 

77 

reg 

197 

79 

reg 

198 

226 

reg 

199 

143 

reg 

200 

233 


r eg 

r eg 

reg 

r eg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 


201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
21 1 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 
24 1 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 


45 

reg 

274 

125 

139 

reg 

275 

1 1 

68 

reg 

276 

35 

30 

reg 

277 

72 

83 

reg 

278 

87 

18 

reg 

279 

21 1 

1 12 

reg 

280 

232 

33 

reg 

281 

132 

30 

reg 

282 

77 

84 

reg 

283 

123 

35 

reg 

284 

127 

237 

reg 

285 

29 

160 

reg 

286 

230 

237 

reg 

287 

26 

60 

reg 

288 

87 

241 

reg 

289 

244 

221 

reg 

290 

88 

20 

reg 

291 

65 

249 

reg 

292 

52 

35 

reg 

293 

44 

34 

reg 

294 

172 

246 

reg 

295 

59 

138 

reg 

296 

171 

137 

reg 

297 

44 

137 

reg 

298 

159 

74 

reg 

299 

170 

72 

r eg 

300 

47 

161 

reg 

301 

255 

215 

reg 

302 

7 

132 

reg 

303 

95 

241 

reg 

304 

3 

121 

reg 

305 

227 

27 

reg 

306 

132 

123 

reg 

307 

B3 

49 

reg 

308 

23 

66 

reg 

309 

32 

1 19 

reg 

310 

29 

136 

reg 

31 1 

64 


28 
108 
232 
226 
17 
116 
71 
1 17 
0 

38 

27 

215 

74 

44 

1 17 
21 
93 
65 
100 
155 
128 
133 

45 
44 
243 
232 
38 
223 
65 
122 
86 
62 
89 
126 

75 
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Spritemaker 


We plaatsten al enige sprite-editors in de loop der tijden, maar 
met dit programma denken we een hoop nieuwere lezers een 
plezier te doen. Het is een zeer snel en krachtig programma. Het 
neemt u het vele rekenwerk, waar u bij het maken van een sprite 
mee in aanraking komt, uit handen. U ontwerpt uw sprite, 
vergroot of verkleint hem, drukt op de letter D en hij wordt 
vervolgens in dataregels, achter het Basicprogramma wat op 
dat moment in het geheugen staat, gezet. 

Nadat u het programma heeft geRUNt kunt u het starten door de 
opdracht SYS 38313 in te tikken. Pas er wel voor op dat u niet 
per ongeluk de RUN/STOP-toets indrukt, deze zorgt er namelijk 
voor dat het programma wordt gestopt en u weer over het 
Basicprogramma kunt beschikken. Het programma legt zichzelf 
uit. 


1 

2 

3 

4 

5 

ICO 


105 


1 10 
115 
120 
125 


rem spritemaker / commodorB-64 

rem door marco kalter 

rem uit leeuwarden 

rem 314 

rem 

poke52,128:poke56,12B:clr:poke532 
80, 1 1 :poke53281,11sprint" L CLR-HOME3 
[grijs 3 3"; 

printtab(12)"sprite maker :"sprint 
"Cneer3m : muiticolor mode aan/ui 
t " 


prinf's 
pr int "x 
pr int"y 
print"! 


schrijf mode aan/uit" 
x vergroten/verkleinen" 
y vergroten/verkleinen" 
lees sprite naar venste 


130 prinf'd s zet sprite in een datas 
et achter"ï print"C4xspatie]het ba 
sic programma" 

print"> 2 spritenummer vergroten" 

print"< s spritenummer verkleinen" 
prinf'clrC2xspatie]: wis venster" 
print"stop s terug naar basic" 
print"starten met 'sys 38313'" 
print"[neer3nb. met 'd' wordt de 
sprite als 64" 

print"hexadecimale strings opgesl 
agen. " 

print"regel 200 en 210 leest 1 st 
ring uit de" 

print"dataset en zet deze om in e 
en waarde w." 

print"kleurselektie met joystick 
(poort 2) of f unkt ietoetsen. " 
printtab(12)"C2xneerll.30 min ged 
u 1 d - " 

fori=0tol851 : gosub200; poke36864+i 
,w:c5=cs+w:next:ifcs=219686thenlist 
200-210 

print" [CLR-HOMEler zit een -fout i 
n de dataset-"send 

reada$: 1 ==asc (lef t$(a$, 1) )-48sr= s asc 
(right$(a$,1))-48 

w=ló*(1+7*(1>9) >+r + 7* (r>9) sreturn 
data O0,28,50,7B,a0,cB,fO, 18,40,6 
8,90,b8,eO,08,30,58 

data 80,a8,dO,f 8,20,48,70,98,cO,a 
4,a4,a4,a4,a4,a4,a4 

data a5,a5,a5, a5,a5 ,a5,a6,a6,a6,a 
6,a6,a6,a6,a7,a7,a7 

data a7,a7,0-f,0e,0a,01,01,Od,Oe,0 
9,01,07,01,0f, 01,05 

data 06,Ob,86,3a,b9,00,90,18,65,3 
a , 85 , -f b , b9 , 19,90,69 


135 

140 

145 

150 

155 

160 

165 

170 

175 

178 

180 

185 


190 

200 

210 

300 

310 

320 

330 

340 


350 data 00,85,fc,60,84,39,48,20,42,9 
O,68,aO,00,91,fb,a5 
360 data -f c , 69,34,85 , f c , a5,-f f , 9 1 , f b , a 
4,39,60,a9,30,8d,3a 
370 data a7,8d,3b,a7,8d,62,a7,8d,8b,a 

7, a9,31,8d,63,a7,8d 

380 data 8a,a7,Bd,b2,a7,0d,b3,a7,6O,a 

d, 21,d0,29,0f,aa,bd 

390 data 32,90 , aa, a9, a4,85,-f c , aO, 00,8 
4,fb,bl,fb,c9,a0,f0 
400 data 1 5 , c9 , eO , f O , 1 1 , a5 ,-f c , 18,69,3 
4,85, f c, 8a, 91 , fb, a5 
410 data -f c , 38 , e9,34,85, -f c , c8, dO, e2, e 
6,fc,a5,fc,c9,a8,d0 
420 data da,60,a9,00,85,3b,a5,40,4a,6 
6,3b,4a,66,3b,4c,33 
430 data 94,a9,01,85,3d,20,42,90,84,O 
2,aO,O0,bl,fb,69,20 
440 data 26,3d,cB,90,f7,a4,02,a5,3d,6 
0,20, c2,90,a9,00,85 
450 data 3e , aO , 03,a2,01,20,d1,90,a4,3 

e, 91,3b,e6,3e,a4,02 

460 data 8a,18,69,08,aa,eO,19,dO,ec,c 

8, cO,18,dO,e5,60,86 

470 data 02 , a5,4 1 ,-f O , 05 , c a, 8a , Oa , aa, e 
8,86,3e,a6,42,b5,43 
480 data 85,ff,Ba,48,4a,4a,a9,eO,bO,O 
2,a9,aO,a6,3e,20,54 
490 data 90 , a5,4 1 , f 0,Of , eB, 68,4a , a9, e 
O,bO,02,a9,aO,20,54 
500 data 90,a6,02,60,a6,02,68,60,85,3 
■F , 86,50, a5,42,48, a9 
510 data 08,85,51, a9,00,85,42,06,3"f ,2 
6,42,a5,41,f0,02,06 
520 data 3f,26,42,20,Of,91,e8,a5,51,1 
8,e5,41,dO,e3,68,85 
530 data 42,a6,50,60,a5,43,8d,21,dO,8 

d, 22,d0,a5,44,8d,25 

540 data dO,a5,45,8d,2e,dO,a5,46,8d,2 

6, dO,4c,89,90,a9,03 

550 data 85,53,20,c2,90,aO,00,84,52,a 
2,01,a4,52,bl,3b,a4 
560 data 53,20,48,91,eó,52,a5,41,dO,1 
0,8a,18,69,08,aa,e0 
570 data 19,dO,e8,e6,53,cO,17,dO,eO,6 
0,8a,18,69,04,aa,e0 
580 data O d,d O,d 8,4 c,b 3,91,a 6,f d,a 4,f 

e, ad,00,dc,4a,b0,05 

590 data cO,03,fO,Ol,88,4a,bO,05,cO,1 

7, f0,01,c8,84,fe,4a 

600 data bO,14,eO,Ol,fO,Of,eO,00,dO,O 

8, a2, 19,a5,41,fO,02 

610 data a2,Od,ca,86,fd,60,4a,bO,fc,a 
5,41,f0,05,e0,0c,4c 
620 data 04,92,eO,18,dO,02,a2,ff,eO,0 
0,fO,03,e8,86,fd,6O 
630 data a5,fe,Oa,Oa,Oa,69,32,8d,O1,d 
O,a6,f d,dO,06,a9,e8 
640 data 8d,00,dO,60,ca,8a,a6,41,fO,O 
1 ,Oa,Oa,Oa,Oa,69,20 
650 data 8d,00,dO,60,20,6c,90,a9,a7,8 
5,3c,a9,12,a6,42,18 
660 data 69,28,ca, 1 O,fa,85,3b,aO,00,2 
0,4d,92,c8,bl,3b,O9 
670 data 80,91,3b,60,ad,OO,dc,29,1O,f 
0,01,60,a6,fd,f0,05 
680 data a4,fe,4c,Of,91,a5,fe,c9,13,f 
0,fO,38,e9,03,aa,29 
690 data 1O,dO,Ob,Sa,a6,42,95,43,20,7 
4,91,4c,94,92,a5,fe 
700 data 38,e9,14,85,42,a6,41,dO,08,c 
9,00,fO,04,a9,02,85 
710 data 42,4c,34,92,a5,42,aa,18,69,1 
4,a8,b5,43,85,ff,a2 
720 data 1d,a9,aO,20,54,90,e8,a9,aO,2 
0,54,90,a5,4O,48,a9 
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1100 data a9,00,85,ff ,a2, 1a,a9,a0,20,5 

4.90, eB,a9,a0,20,54 

1110 data 90,e6,ff,c8,c0,13,d0,ec,20,6 

c, 90,20,89,90,a9,07 

1120 data 85, f f , a0 , 15, a2, 1 d , a9 , a0,20,5 

4.90, e8,a9,a0,20,54 

1130 data 90, e6, -f -f , c8, c0, 18, d0, ec , a2,0 
7,8a,95,3d,e8,e0,0a 
1140 data d0, f 8, a9,00,85, 43, a9,01,85, f 
d , a9, 03,85, -f e, a9,02 
1150 data 85,42,20,34,92,a9,00,85,41 , a 
9,20,8d,0e,d0,a9,a0 

1160 data 8d , 0f , d0,20,74,9 1 , a9,0 1,85,4 
0,20,02,93,a9,00,85 

1170 data 47,4c,4b,94,a9,20,8d,00,d0,a 
9,4a,8d,01,d0,a9,81 

1180 data 8d , 15, d0, a9,8d , 8d , f B, a7, a9, c 
3,8d,40,a3,8d,55,a3 

1190 data a9,66,8d,43,a3,8d,52,a3,a9,3 
c , 8d ,46,a3,8d,4f,a3 

1200 data a9,18,8d,49,a3,8d,4c,a3,60,a 
2,00,b5,00,9d,00,8f 

1210 data e8,d0,fB,20,81,ff,a9,95,8d,0 
0,dd,a9,95,8d,18,dO 

1220 data a9,a4,8d,88,02,a9,36,85,01,2 
0,44, e5,4c, -f0,93, c9 

1230 data 03,d0,1f,a2,00,8e,15,d0,bd,0 
0,8-f,95,00,e8,d0,-f8 
1240 data a9,97,Sd,00,dd,a9,04,8d,88,0 

2, a9,15,8d,18,d0,4c 

1250 data 36,97,c9,44,d0,b2,4c,e9,96,a 
9,e8,85,fb,a9,03,85 

1260 data -f c , a5,2b , 85,2d , a5,2c , 85,2e , a 

d, 02,08, -F0,06, a0,01 

1270 data b1,2d,d0,01,60,48,cB,b1,2d,1 
8,69,0a, 85, -Fb , c8, b 1 

1280 data 2d,69,00,85,fc,a0,00,b1,2d,8 
5,2d,68,85,2e,4c,0e 

1290 data 96,29,0f , 09, 30, c9,3a, 90, 02,6 
9,06,60,48,20,31,96 
1300 data 85,-f c , 68, 4a , 4a , 4a, 4a , 20,3 1,9 
6,85,fb,60,a9,2c,91 

1310 data 2d,c8,a5,fb,91,2d,cS,a5,fc,9 
1,2d , c8,60,20,f 9,95 

1320 data a0,00,a5,2d, 18,69,36,91,2d,c 
8, a5,2e,69,00,91,2d 

1330 data c8,20,52,96,a9,83,91,2d,cS,a 
9,20,91,2d,c8,bd,00 
1340 data 83,20,3c,96,20,52,96,eB,bd,0 
0,83,20,3c,96,20,4d 

1350 data 96, e8,8a, 29,0-f , d0, -f 1,91,2d , c 
8,91,2d,c8,91,2d,20 

1360 data «f 9,95, a5,2d , 18,69,02,85,2d , 8 
5,2-f , 85,31 , a5,2e, 69 

1370 data 00,85,2e,85,30,85,32,60,00,0 
0,00,32,31,20,45,54 

1380 data 49,52,50,53,20,8-f , 20, -f 9,95, a 
5,2d,18,69,10,a0,00 
1390 data 91,2d,a5,2e,69,00,cB,91,2d,c 
8,20,52,96,a2,0d,bd 

1400 data b8,96,91,2d,c8,ca,10,f7,60,a 
5,2e,30,46,ad,20,d0 

1410 data 49,0b,8d,20,d0,20,c2,90,a5,3 

b, 8d, 7f , 96, Bd, 89,96 

1420 data a5,3c,Bd,80,96,Bd,8a,96,ad,1 

3, a4,8d,bc,96,ad,14 

1430 data a4,Bd,bb,96,20,c6,96,a2,00,2 
0,5d,96,e0,40,d0,f9 

1440 data a2,00,20,b3,ee,20,b3,ee,ca,d 
0, -f7, ad , 20, d0,49,0b 

1450 data 8d,20,d0,a9,00,60,20,9f,96,6 

c, 02,a0 


730 data 8e 
8,85,40 
740 data 06 
0,50,88 
750 data f8 

8, e9, 18 
760 data ad 

8,20,42 
770 data 69 
f , aa , bd 
780 data d0 
0,8e , 9 1 
790 data ad 
9,01,85 
800 data c6 
5,55, f0 
810 data 12 
2,d0,02 
820 data f0 
0,85,47 
830 data a4 
0 , e0,20 
840 data 43 
a , ea , ea 
850 data 03 
1,49,01 
860 data d0 
4,a9,02 
870 data 92 
l,8d, ld 
880 data c9 
d,17,d0 
890 data 09 
0,c9,53 
900 data 49 
d,29,a4 
910 data 03 

2.93, c9 
920 data 8e 

c , d0, e0 
930 data 20 
0,54,92 
940 data 62 

9, a5,4a 
950 data 4c 

9,0a , 90 
960 data 30 
a,4a,4a 
970 data 94 
0,26,94 
980 data 3c 

6.94, a5 
990 data 00 

2,90,4c 
1000 data 0a 
0,85,4a 
1010 data 85 
4,85,3b 
1020 data 94 
4,85,3b 
1030 data 94 
8,d0,d2 
1040 data 94 
d , 2 1 , d0 
1050 data a3 
0,a 0,02 
1060 data 90 
O,la,dO 
1070 data 00 
d,20,54 
1080 dat a d0 

d,69,a4 
1090 data a7 

0 ,dC ,20 


*** EINDE LISTING 


, O vJ 

, 60 

T V 

a5 

47, 

, 20 

ea 

90, 

, d0 

f d 

ca, 

, a 5 

40 

8d , 

, 4a 

4a 

4a, 

,01 

d0 

38, 

, 90 

a5 

* <= , 

, 34 

85 

f c , 

, 32 

90 

8d , 

, 60 

a5 

40, 

, 68 

85 

40, 

, 00 

dc 

29, 

, 54 

85 

55, 

, 54 

f0 

01 , 

, 06 

c 6 

55, 

, 85 

54 

4c , 

, 60 

7 f 

e0, 

, 0 f 

e8 

86, 

, a9 

20 

8d , 

, 60 

a6 

40, 

, f0 

f3 

c a, 

, 93 

20 

e 4 , 

, ea 

c 9 

13, 

, 4c 

02 

93, 

, 85 

41 

ad , 

, 49 

80 

8d, 

, 85 

42 

20, 

, a9 

01 

85, 

, d0 

4c 

ac , 

, 59 

d0 

09, 

, 60 

c9 

58, 

, ad 

ld 

d0, 

, d0 

0 f 

a5, 

,01 

85 

47, 

, 60 

c 9 

2e, 

,4c 

36 

93, 

, 4c 

d0 

03, 

, 91 

38 

e 9, 

, 8a 

4c 

83, 

, a4 

94 

20, 

, 20 

bd 

92, 

, 93 

4c 

■f3, 

, d0 

05 

a9 , 

,21 

94 

85, 

, 02 

e9 

39, 

p 9d 

00 

a 4, 

, 4a 

ca 

20, 

, c a 

60 

69, 

, 20 

c 2 

90, 

, a5 

3b 

20, 

, 40 

85 

3b, 

, 85 

3c 

a2, 

, 3f 

94 

ea, 

, 64 

e8 

10, 

, a0 

04 

a9, 

, 4b 

e6 

4b, 

, a5 

3c 

f9, 

, 85 

3c 

b 0, 

, a5 

3c 

79, 

, 85 

3c 

a5, 

, a5 

3b 

4c , 

, 20 

81 

ff > 

, a0 

40 

99, 

, c 8 

d0 

fa. 

, a9 

40 

20, 

, a0 

18 

a 9, 

, ed 

a0 

02, 

p a9 

5d 

20, 

, 90 

c 8 

C 0 , 

p ed 

a9 

70, 

, a 9 

6d 

8d , 

, a9 

7 d 

8d, 

, 74 

95 

a0, 


p 

31 

p 

4a 

p 

2c 

p 

f b 

p 

f9 

p 

2d 

p 

91 

p 

96 

p 

bd 

p 

96 

p 

20 

p 

29 

p 

2d 

p 

2d 

p 

2e 

p 

85 

p 

45 

p 

53 

p 

a0 

p 

2e 


0d 

? 

2d 

p 

20 

p 

20 

p 

89 

p 

80 


ad 

p 

96 

! 

d0 

1 

b3 

1 

49 

1 

a9 

$** 

f 
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«III 




M 1 


P“iê 



spritemaker 


regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
r eg e 1 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 
regel 


1 

2 

3 

4 

5 

100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

178 

180 

185 

190 

200 

210 

300 

310 

320 

330 

340 

350 

360 

370 


65 

248 

109 

39 

143 

225 
92 
137 
165 
167 
172 
81 
188 
241 
18 
104 
5 1 
94 
116 
4 

213 

30 

183 

254 

34 

1 17 

171 

226 
54 
132 
220 
15 
239 
1 16 
121 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 


132 
1 1 1 
91 
184 

33 
223 
8 

13 

70 
61 

71 
32 
231 
197 
8 

4 

55 
221 
249 
43 
138 
25 
24 1 
101 

34 
98 
18 
9 

32 
21 
1 16 
16 
239 
36 
7 

251 

71 



regel 

r eg e 1 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
9 1 0 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


123 

48 

75 

238 

31 

3 

25 

12 

8 

156 

5 

242 

91 
47 
61 
30 
25 

92 

1 63 
17 
12 

243 
224 
29 
20 

243 

94 

76 

37 

1 

57 

19 

250 

131 

55 

33 

54 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


1120 
1 130 
1 140 
1 150 
1160 
1 170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1 400 
1410 
1420 
1430 
1440 
1450 


r ead y. 


Prijs 


ƒ 24,90 


33 
117 
58 
246 
215 
43 
1 15 
95 
41 
106 

30 
48 
65 
86 
57 

55 

45 
202 

56 

1 12 
12 
39 
240 
64 

31 
128 
221 

46 
56 
55 
114 
46 
91 
149 


Rechtstreeks te 


bestellen bij Infolist 
met de bestelbon 


elders in dit blad. 
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90 
100 
1 10 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

250 

260 

270 

280 

290 

300 


310 


320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 


450 

460 

470 

480 

490 

500 

510 


rem blok-klak / commodore-info 

rem door wim stadhouders 

rem uit terneuzen 

rem 308 

rem 

g ot o300 

rem start lus 

if ti>57thenforp=ltollsnextsgotol 
00 

got o80 

rem bijtellen 

poke54296, 15:ti$="0 00000"a se*se+l 
: i-f se ss 60t hengosub 1 60 
vs-int(se/10)shs=se-(vs#10) 
pokel678+54272+hs+(vs*40),sk 
forp=lto20:next 
poke54296 p 0sgoto70 
rem minuten bijwerken 

sb^O: mi=mi+1si f mi=60thengosub220 
vm=int(mi/10):hm=mi-(vm#10) 
poke1278+54272+hm+(vm*40),mk 
»k*»k+1aifBk*16thensk a 0 
rsturn 

rem uren bijwerken 

ur»ur+li mi"0i ifur a 12th*ngo«ub270 

el 077 + 54272 + ur ,uk 
mk a *mk + 1 1 ifmk^lóthenmk*© 

r etur n 

rem uur reset 

ur = 0suk = uk + ls ifuk=16thenuk=0 
return 

forp=54272to54296: pokep, 0: next: poke 
54273,20s poke54278, 70:poke54276, 1 
29 

poke53281,5:poke53280,5:print"C CLR-HÜ 
MED CBLAUWD C10xspatie]<< blok-klok 

>>" 

print" CneerDmet dit programma wor 
dt de tijd op het" 

print"scherm weergegeven, doordat 
blokjes" 

print"steeds van kleur veranderen 
.Cneer]" 

print"CneerDals blijkt, dat de kl 
ok voor-of achter" 

print"loopt, kunt u dat eventueel 
aanpassen inregel 160.C2xneer]" 
input"uur (0-11)"jur 
i-f ur<0or ur>llthen370 
input"minuut (0-59)";mi 
if mi<0or mi>59then390 
input"seconden (0-59)";se 
if se<0or se>59then410 
p o k e53281, 15spoke532 80, 15a sk = int( 
14irnd(1))+2:mk=int( 1 4 * rnd(1))+2 
uk = int(14*rnd(l) )+2:print"C CLR-HOME D 
C12xspatie] C 1 .blauw3^»»»m 

print"CBLAUW Duren C1.b1auwD CBxspatieD 
^CRVS-aan]CWITDC12xspatieD CRVS-uitD 
Cl.blauwig" 

print"C12xspatie3^CRVS-aan3Cl.blauwD 

012345678901CRVS-uitD^" 

forq=lto2 

print"C2xneerDCl.blauwDC13xspatieD 


forp = lto6s print"C13xspatieD Cl .blauwD 
ÜCRVS-aanD CWITDC10xspatieD CRVS-uitD 
Cl.blauwD^":next 

print " C1 3 x s p a tie]Cl .blauwD&CRVS — aanD 

0123456789CRVS-uitD^"snext 

print"C HOME 3Cóxneer J CBLAUWDminute 

n " :print " C9xneerDseconden" 





520 rem seconden 
530 bs~1678:as=se 
540 if as>9then560 

550 forp=bs to(bs+as);pokep+54272,sk: 

next:goto580 
560 as=as-10 

570 forp®bs to bs+9spokep+54272,skinext 
s bs*bs + 40:goto540 
580 rem minuten 
590 b m** 1278 s am = m i 
600 if am>9then620 


560 

570 

580 




ab e * 


telle * 1 


ABONNEMENTEN 
OUDE NUMMERS 


Abonnementen kosten ƒ 55,- en voor een vol 
jaar Commodore-lnfo (10 nummers) is het 
verreweg het gemakkelijkste, wanneer u dat 
bedrag aan ons overmaakt op giro 1585491 tnv. 
SAC Blaricum of op onze bank in België BBL 
nr. 310050602562 

OUDE NUMMERS 

Reeds verschenen nummers zijn na te bestellen. 
Maar, helaas, NIET per brief, kaart of telefonisch. 
We leveren die oude nummers alleen bij 
vooruitbetaling op onze giro 1585491. 

De prijs is ƒ 6,75 per nummer 
(dus aangeven welk nummer). 

Van de eerste jaargang, 1984, zijn alleen nog de 
nummers 2, 4 en 5 beschikbaar. In dat jaar zijn 
overigens maar vijf nummers verschenen. 
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610 farp=bm to(bm+am)spokep+54272,mks 
nex 1 1 goto640 
620 am^am-10 

630 -forp^bm to bm+9*. pokep+54272, mk i next 
sbm=bm+40igoto600 
640 rem uren 

650 forp*1077to(1077+ur)spokep+54272 p 
uk s nex t 

660 t i $» 11 000000 " 3 got o 1 20 
*** EINDE LISTING *** 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


142 

106 

219 

49 

84 

142 

14 

55 

142 

225 

114 

31 

22 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 


139 

97 

138 

48 

148 
222 
53 
75 

149 
230 
9 

175 

35 

66 

122 

218 

232 

201 

190 

45 
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The elementary Commodore 128 


jjj ^ 8 


De onmisbare handleiding voor Uw Commodore-128, 
door William B. Sanders. 


, ^ ^ 

ri-t-, ■ <n vief hï^vsöji 1?. r&sar; 

IH wÊS m & t & IBm 

MP .. I 


■Hl 



Bestellen kan alleen bij vooruitbetaling door overmaken van 
ƒ 44,90 op giro 3157656 Infolist Huizen met vermelding van: 
The Elementary C-128. Na ontvangst van Uw overmaking sturen 
wij U het boek op. 

Ook in de betere computerwinkel. 


INFOLIST 

Postbus 1047, 1270 BA Huizen, tel.:02152-62343 
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Woorden raden 




i i 

. 


BraHMsi 

WÊÊBm 


Er bestaan verschrikkelijk veel ’woord-raad’ spelletjes. Deze 
variant is echter nog nieuw voor ons. Het spel kan met meerdere 
spelers worden gespeeld. Nadat het opgegeven aantal spelers 
hun naam hebben ingetikt kan er een te raden woord worden 
ingetikt. Zorg er vooral voor dat degene die het woord moet 
raden niet stiekem meegluurd. Vervolgens kan het werkelijke 
spel beginnen. 


1 

2 

3 

4 

5 

100 


rem woorden raden / cbm-64 
rem door j. kleuters 
rem uit bocholtz / 045-443285 
rem 332 


rem 


110 


120 


130 


140 


150 


160 


170 


180 


190 


200 

210 


220 


230 


240 


250 

260 

270 


280 


290 


300 


dim o*(12),o* <12) e v*="CRVS-uit3 CWIT3 
. CRVS~aan3 CGEEL3" 

■f orss*0to24! poke54272 + ss, 0 j nextss 
s poke54296, 15 

poke 53280,0;poke 53281 p 0;printchr$ 
(14) 

pr i nt"CCLR-HOME3 "5 :for t = l to20! print 
" CRVS-aan3 Coran je3«CGEEL34" ; s next 
t 

print"CRVS-uit3 C10xspatie3 CRVS-aanl 
CPURPER3 C3xspatie3Raad het woord. 
C3xspatie3" 

-for t = i t o20 s pr i nt " C RVS-aan 3 Cor an i e 3 
i[BEEL34";:next t:q=5:gosub 780 
print"Cneer3CWIT3Hoeveel personen 
spelen CRVS-aan3CCYAAN3 "5 s input 
s:q a ligosub780:dimn$(s),sc(s) 
print" Cneer 3":fora=ltos:print"CPURPER 
3C3xspatie3Speler Cl.groen3"|a|sq 
»5igosub780iinput n$(a)mext a 
print"C2xneer3Cl.blauw3C2xspatie3 
Druk een toets voor start.C2xspatie3 
C2xneer3" 

■for t = i to20xprint"CRVS-aan3Coranie3 
«CGEEL34" 5 s next t s 
get z*sif z$="" then 200 
q a 5i gosub780i -f ory B l tosi pr int " CCLR-HQM 
E3" 5 5 -for t = l to20: print" CRVS-aan3 
Cl .groen3«CGEEL34"s xnext tsprint 
print"C5xneer3 CPURPER3 C3xspatie3W 
elk woord moet CWIT3" 3 n$(y>;"CPURPER3 
raden" 

print"C2xneer3Cl.groen3Maximaal a 
antal letters van woord is 12 ." 
input"C3xneer3 CGEEL3WoordC2xspatie3 
s CCYAAN3 CRVS-aan3 " ; a$ 

1=1 en(a*) 

i-f 1 =< 1 2 then 300 

i-f 1 > 1 2 then pr i nt " C CLR-HOME 3 C 6 x neer 3 
CRVS-aan3Cl.rood3C5xspatie3Woord 
is groter dan 12 letters.C4xneer3" 
pr int " C3xneer3 CRQOD3CRVS-aan3"tab( 

8 ) ;a$) "C2xneer]C16x1 inks3 CCYAAN3 
C RVS-uit 3 telt totaal "j1; "letter 
s.C3xneer3 " 

■for j»l tol550xnextx print" CGEEL3V 
er zin een nieuw woord"«forJ«l to2 
500!next 3 goto210 

fora*ltolx e$(a)«mid$(a*,a p 1 ) 1 next 


310 


320 


330 


340 



pr int"CCLR-HOME 3 " 3 xfor t*l to20sprint 
" CRVS-aan3 Cl.b1 auw3«CGEEL 34 "3 xnext 
t 

print "CRVS-uit3C10xspatie3CRVS-aan3 
CPURPER3 C3xspatielRaad het woord. 
C3xspatie3" 

■for t = l to20iprint"CRVS-aanKl.blauw] 
«CGEEL34"*xnext t 
■for j«l to 1 5: t • * *' " 




350 


360 


370 


print"C GEEL3 C RVS-uit3Cneer3"jstr* 
<j)|"e."|iforg B ltolxprinttab(7+g) 

I 11 Cl . blauw! . 11 1 s next 1 pr int 
print"Cop 3"|tab<6 )11 input b*iprint 
tab(22)|"CCYAAN3Cop 3I" 
■Fora=ltQlïo*(a>«mid*(b* p a, 1) xnext 


I 


: : ■ ., 


380 

390 


400 

410 

420 

430 

440 

450 

460 


470 


480 

490 

500 

510 


520 


530 

540 


550 


560 


570 


580 


590 

600 

610 

620 


print" C2xop3" i-f or k 3 * 11 ol 
i-f e$(k)=a$ (k)then t$ = t*+e$ ( k ) x goto 
410 

t$=t$+v$ 

nextk: q=5 1 gosub780 1 q*=0 
printtab(23) 5 "CRVS-aan3CGEEL3"|t* 
i-f b* = a$ then 450 
print"C2xop3"inext i 
i-f i < 16 then 480 

ifj=16thenprint"C2xneer3 CPURPER3 CRVS- 
aan 3 " ;a$ 5 "CRVS-uit3Cl.groen3 was 
het woordC2xspatie3 1 CRVS-aan3CROOD3 
0 punten Cneer 3"iq=5ï gosub780 
•for t«l to20x print" CRVS-aan3 Cl .blauw! 
«CGEEL34 "|e next t 1 goto520 
ifi>10 then kc«lxgoto 500 
kc*l 10 -(i* 10 ) 
sc(y)=sc(y)+kc 

print"C3xneer 3 CPURPER3Dat leverde 
C1.groen 3"|kc ;"CPURPER3 punten 
op. " 

q«0igosub 780x-for f = l to 250 xnext 
•f 

n e x t y 

pr i n t " C CLR-HOME 3 " | 1 -f or t«l to 20 iprint 
"CRVS-aan3CROOD3«CGEEL34"|«next t 
1 pr i nt 

print"CGEEL3C 6 xneer3Voor nog een 
ronde spel en..CRVS-aan3CR00D3 f1•" 
print"CGEEL!C2xneer 3Voor eindstan 

d spel...CRVS-aan 3 CWIT3 f3." 

print"CGEEL3C2xneer 3Voor tussenst 

and...CRVS-aan 3 Cl .blauw 3 

f5.C4xneer3" 

for t=l to20sprint"CRVS-aan3CROOD3 
«CGEEL34" 5 :next tsprint 
get z$sif z** 8 "" then 590 
if z$*chr*(133) then 210 
if z $*chrl(134) then 650 
if z*»chr*(135> then qq»l(goto 65 


210 

if z $*chrl(134) then 650 
if z$»chr$(135) then qq«ligoto 65 
0 

if z*< >chrl ( 133) orz*Ochr* (134) 
orz*<>chr*(135)then 590 
goto 650 

print"CCLR-H0ME3"f xfor t-i to20iprint 
"CRVS-aan3 Cl.rood 3«CGEEL34"|«next 
t« print"CRVS-uit3"| 
if qq«l then pr int"C12xspatie3CRVB-aa 
n3CWIT3C2xspatie3tus»enstandC2x»patie 
3 " s goto680 

print"C10xspatie3 CRVS-aan!CGEEL3C2xsp 
atie!*** eind/stand * **C 2 xspatie3" 
for t^l to20xprint"CRVS — aan 3C1.rood3 
8CGEEL34"j 1 next tiprint 
forii*lto»iprinttib(1)I"CRVS-aan 3 
CWIT3 "f n$(ii>|tab(11)|"CGEEL3 hee 
ft C RVS-uit 3 CRVS-aan3Cl.rood 3 "51 
q=5 1 gosub7B0 

printtab( 20 )ystr*(sc(ii))"y tab( 

29) y "CPURPER3 punten, "xnext iixprint 
"C2xneer3" 

for t=l to20xprint"CRVS-aan!Cl.rood! 
«CGEEL34" 5 snext tsprint 

if qq«i then qq«0*goto 740 
got o770 

print "C2x neer 3 CRVS-aan3 Cl. blauw!C5xsp 
atieldruk fl. voor vervol g . C 5x spatie! 
get z*iif z$<>chr*<133)thmn 750 
q“5x gosub780|goto540 1 


630 


650 


660 


670 


6 S 0 for 


690 


700 


710 


720 


740 


750 

760 






If: 

I 


f 
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770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 


end 

rem geluld 
■for as»l to 30 

poke 54277, 55*poke 54278,100 

if q»5 then 900 

poke54275,25ipoke54274,255 

poke54272,6 ipoke54273,as 

poke54276,65 

■for ■•■Ito 10 inext ss 


■for ■■■ito 10 inext •• 
poke54276,129 
for ss-lto 20 inext ss 
nex tas 

poke54276,65i*forss»lto60inextssi 
poke 54276,0* return 
poke54272,6 ipoke54273,3 

poke54276,33 
■for »a*lto250 inext es 
poke 54276,05 return 


*«* EINDE LISTING *** 


woorden raden 

regel 1 175 

regel 

560 

95 

regei 



regel 

570 

82 

regel 

3 

21 

regel 

580 

64 

regel 

4 

39 

regel 

590 

157 

regel 

5 

143 

regel 

600 

164 

regel 

100 

21 

regel 

610 

173 

regel 

110 

99 

regel 

620 

246 

regel 

120 

117 

regel 

630 

230 

regel 

130 

183 

regel 

640 

36 

regel 

140 

79 

regel 

650 

176 

regel 

150 

170 

regel 

660 

104 

regel 

160 

186 

regel 

670 

82 

regel 

170 

170 

regel 

680 

186 

regel 

180 

218 

regel 

690 

34 

regel 

190 

12 

regel 

700 

43 

regel 

200 

145 

regel 

710 

186 

regel 

210 

104 

regel 

720 

153 

regel 

220 

34 

regel 

730 

39 

regel 

230 

211 

regel 

740 

31 

regel 

240 

48 

regel 

750 

184 

regel 

250 

1 19 

regel 

760 

250 

regel 

260 

217 

regel 

770 

128 

regel 

270 

85 

regel 

780 

73 

regel 

280 

12 

regel 

790 

255 

regel 

290 

60 

regel 

800 

206 

regel 

300 

195 

regel 

810 

3 

regel 

310 

208 

regel 

820 

208 

regel 

320 

79 

regel 

830 

147 

regel 

330 

235 

regel 

840 

54 

regel 

340 

96 

regel 

850 

113 

regel 

350 

146 

regel 

860 

103 

regel 

360 

154 

regel 

870 

114 

regel 

370 

206 

regel 

880 

22 

regel 

380 

216 

regel 

890 

227 

regel 

390 

161 

regel 

900 

50 

regel 

400 

198 

regel 

910 

49 

regel 

410 

18 

regel 

920 

167 

regel 

420 

172 

regel 

930 

195 

regel 

430 

72 




regel 

440 

5 




regel 

450 

50 

ready. 



regel 

460 

62 




regel 

470 

69 




regel 

480 

87 




regel 

490 

37 




regel 

500 

106 




regel 

510 

48 




regel 

520 

186 




regel 

530 

219 




regel 

540 

37 




regel 

550 

209 









-;v. . 


Schuif spel 


U kent de kleine plastic schuifraarhpjes waarschijnlijk ook; net 
zolang schuiven tot de letters, cijfers of reclameboodschap in de 
goede volgorde staan. Dat een dergelijk spel op de computer 
gespeeld kan worden zal niemand verbazen, maar de fraaie 
uitvoering toch wel. 

Op het scherm verschijnd een ridder te paard, deze wordt 
vervolgens door elkaar gehusseld en de opgave ligt klaar voor u. 
De tijd en uw beurten worden vanzelfsprekend ook bijge¬ 
houden. 



100 


1 10 

120 

125 

130 

140 

150 


160 


170 

180 

190 

200 

210 




• * 'V 

yj 


tv*! .* .* .*» 

* * * *i * y 


O / N F, 




rem schuifspel / cbm-64 

rem door fons reiisbergen 

rem leidschendam / 070-278619 

rem 359 

rem 

poke53269,0 

p o k e53281,01poke53280,0iprint"CCLR-HO 

ME 3 CWITD2xneer][9xspatie]- 

—SCHU I F SP EL-" 

print”C3xneerlC3xspatielProbeer m 
et de minste pogingen het" 
print"[éxspatielplaatje weer rech 
t te zetten." 

print"[neer]C2xspatielGebruik de 
cursor toetsen om het te" 
print"C3xspatie3verplaatsen stuki 
e aan te wijzen" 

print"Cneer]C2xspatie]Druk op ret 
urn en het stukje schuift" 
printtib(9)"naar de lege plaats." 
poke52,48ipoke56,48iclr 
p = 2040s mi$=" 1000 I "icu-1isp«5324 

8s pa$="C HOME 3C20xneer3" 

•f or i = 12288to 12798: readas pokei , as nex t 
s a=192i -For i=*ptop + 7i pokei , as a=*a+ 1 i 
nex t 

■fori«0to8ireadg (i, 1) ,g (i,2) ,g (i,3 
) , g ( i , 4) snext 

fori^étoBi j=g (i, 1 ) *2 i ifj<16thenpoke 
sp + j,g <i,3)spokesp+j+l,g(i,4) 
next:fori=0to8sreadc(i)inext 
printtab ( 10) " t GROEN 3C5xneer 3 DRUK 
OP EEN T0ETSCGEEL3" 

Q8ta$:ifa*=""then140 

pokesp+29,255ipokesp+23,255ifori- 

sp+39tosp+46ipokei,l«nextipokesp+ 

21,255 

print"CCLR-H0ME3 C2xspatie3 r- 

- n C4xspatie3 CWÏT3SCHUÏ 

FSPEL C GEEL 3" 

fori=ltal6iprint"C2xspatie3 I C18xspati 
e 3 I " 

nextiprint"C2xspatie3 u - 


printpa$"CWIT3M0MENTJE IK GOOI HE 
T PLAATJE DOOR ELKAARCGEEL 3" 
gosub550: bu=0 

printpa$" r-- 

-n " j 


I m 1 % 4”‘1 m i i i 


■i V: : 


'ïm&BZ. BH 
wy. ?■ 


m A ' 


p _ „ v - n ] ^ ^ vu .. v 

. ... .. ’ : ' : ' 

"" . ■" 

<■ ' " >» 

£ || | ® f/ §£ 

V'-.''/* 

< ^ 


WUÊ 1 - 11 WKR >' 

. ......... ■■ : . . 

■■■ ' .... ..... . .... ".... : ■ .... .. : 
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I-. -c 

| 




mm 


I 




isii 


II 


ft 






: 


: 


:|S|ilfcs 

■ 


* J -'..I 


220 print" I CGROENÜtiJd 00.00.00C2 k spatie3 
beurt CWITH 0CGROEN3C4xspatieUmin 
stCBEEL3"mi$; 440 

230 print" L - 

-j C WIT 3"j 450 

240 ti*«"000000" 

250 pokesp+39 + g(cu, 1) , 4 

260 printpa$"Cneer]C6xrechts]"mid$(ti 460 

1,2) " s ,, mid*(ti* f 3p2) " ! "mid* <ti* 

,5,2); 

270 geta$sifa$=""then260 470 

280 pokesp+39+g(cu, 1) , 1 480 

290 i f a$= " C 1 i n ka 3 " thencu-cu- 1 t i f cu< Cthen 490 

CU=0 500 

300 i^a$="Crechts]"thencu = cu+l I if cu >B 

thencu-8 510 

310 i-f a$=" Cop] "thencu«cu-3: ifcu<0then 

cu=cu+3 520 

320 i-f a$=" Cneer 3 "thencu = cu + 3: i-f cu>8then 

c u = c u-3 530 

330 ifai<>chr$(13)goto250 

340 bu = bu+l s print " C8xrechts3 " bu: i-f g (c 540 

u, 1)=81 h en 250 550 

350 gosub500 560 

360 i-f j n = 0t hen250 

370 pokesp+g(cu, 1)* 2,g(nr,3) spokesp+1 570 

+g(cu,l)*2,g(nr,4):g(nr,l)=g(cu,l 580 

) 

380 g(cu,1)=8:cu=nr 

390 fori=0to8:ifg(i,l)<>c(i)then410 590 

400 next;gota430 999 

410 geta$: i-fa$<>" " then410 1000 

420 goto250 

430 print"CH0ME3C3xneer]"tab(23)"Het 1005 


is ie gelukt !":ifbu>= : val(mi$)then 
g ot o460 

mi$ = str$ (bu) + " I " :fori = 11o7-1 en(m 
i$):mi$=" "+mi$snext 

pr inttab <30)"Met"s prin11ab <23)"Cneer 1 
De minste beurten"sprinttab(27)"t 
ot nu toe" 

printtab(23)"Cneerlnogeens een sp 
el "sprinttab(28) " Cneer3CRVS-aan3j 
CRVS-uit 3a/CRVS-aan3nCRVS--uit 3ee" 
geta$:ifa$="i"thenl60 
i-f a$=" n"thenstop 
goto470 

n = nr s in=lsnr = cu-*l! i-fg (cu-l*abs(8 = 

<g(ca,2)and8)),l)«8thenreturn 
nr«cu-3!ifg(cu-3tabs(4=(g(cu,2)and 
4) ) , l)=Bthenreturn 

nr-cu+l!ifg(cu+l*abs(2=(g(cu,2)and 
2) ) , 1 )=8thenreturn 

nr = cu + 3s ifg(cu + 3labs<1= <g(cu,2)and 
1) ), l)=8thenreturn 
jn=0: nr=n:return 
nr = 9s fori = lto20 

cu=int(rnd(1)#9):if(cu=nr)or(g(cu 
, 1 )-8)t h en560 
gosub500!ifjn“0then560 
pokesp+g(cu,1)*2, g(nr,3)ipokesp+1 
+g(cu,l)*2,g(nr,4)ig(nr,1)-g(cu,1 
) 

g(cu,1)=8snextscu=nrireturn 

rem litiplaatie data**** 

data 3,192,255,7,129,255,14,0,60, 

28,0,131,24,0,71 

data 52,0,103,102,0,179,207,0,89, 







WBBÊËÉ 



Commodore 64, 
StarTexter 

StarTexter is een bijzonder gebrui¬ 
kersvriendelijk programma dat uw 
Commodore 64 omtovert tot een 
tekstverwerker met professionele 
eigenschappen. 

Door het optimaal benutten van de 
mogelijkheden van de Commo¬ 
dore 64 en het toepassen van 
machinetaal, is een hoge verwer¬ 
kingssnelheid gerealiseerd. 

Al even gebruikersvriendelijk is de 
handleiding. Verluchtigd metvele 
praktische voorbeelden, stelt dit 
poek u in staat om in korte tijd alle 
mogelijkheden van StarTexter op 
een vlotte manier te kunnen ge¬ 
bruiken. 

Wat z 11 n nu zoal die bijzondere 
eigenschappen van StarTexter? 

We geven een opsomming van de 
meest in het oog lopende punten: 



• Tekst kan ononderbroken wor¬ 
den ingevoerd. 

• 80 Tekens per regel mogelijk, 
omschakelbaar naar 40. 


• Besturing van het programma 
door middel van menu's. 

• Woord voor woord kan door de 
tekst worden gesprongen om 
corrigeren te vergemakkelijken. 

• Uitgebreide formattermgsmoge- 
Iijkheden aanwezig. 

• Tekstgeheugen voor 20000 
tekens. 

• Accenten en trema's kunnen 
worden gebruikt. 

• Verschillende karaktersets zijn 
te laden. 

• Manipulaties met gehele tekst¬ 
blokken zijn mogelijk. 

• Hulp bij het afbreken van 
woorden. 

Het bijbehorende boek geeft niet 
alleen een overzicht van de ken¬ 
merken van StarTexter; het bevat 
tevens een aangename cursus 
tekstverwerking. 

U zult er versteld van staan wat u in 
korte tijd met dit programma kunt 
doen. 
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1010 


1015 


1020 


1025 


1030 


1035 


1040 


1045 


1050 


1055 


1060 


1065 


1070 


1075 


1080 


1085 


1090 


1095 


1100 


1105 


1110 


1115 


1120 


1125 


1130 


1135 


1140 


1145 


1150 


1155 


1160 


1165 


2000 

2010 


2020 


143,0,44,15,0,28 

data 7,128,28,131,128,12,192,128, 
11,110,0,55,63,0,57 

data 127,0,126,124,0,127,120,0,12 

7,118,0,143,243,0,241 

data 241,128,222,0,248,192,0,15,2 

48,0,249,156,0,227,7,0 

data 231,193,128,239,192,192,207, 

192,112,15,192,28,15,128,15 

data 7,0,56,6,0,240,4,1,240,128,1 

,240,224,3,240 

data 240,3,240,240,3,224,112,3,12 
8,176,2,0,208,0,0 

data 224,0,0,112,0,0,0,224,128,22 

1,224,193,187,224,99,231 

data 224,51,30,240,16,255,240,27, 

255,240,109,255,245,246,239 

data 251,250,55,250,251,120,187,1 

25,191,91,126,223,91,119,95 

data 39,175,111,31,207,183,1,118, 

219,0,232,10,0,239,237 

data 0,239,246,0,223,251,0,255,25 

3,0,184,0,0,220,0,0 

data 238,0,0,96,0,0,64,0,3,192,0, 
29 192 0 123 

data 128,1,187,0,3,119,0,7,103,12 
8,15,102,192,22,246 

data 224,30,246,240,46,246,248,46 
,246,104,110,244,16,110,237 
data 248,238,195,252,238,207,126, 
220,191,61,220,127,0,0,16,0 
data 0,24,0,0,28,0,63,156,0,223,1 
74,0,187,111,0 

data 183,119,128,111,123,96,110,6 
3,112,110,191,56,236,30,168 
data 235,96,216,211,127,56,183,12 
7,216,183,188,88,119,176,220 
data 247,188,206,251,191,194,251, 
191,192,243,159,128,241,223,128,0 
data 0,255,253,0,127,254,0,127,25 
5,0,127,255,0,63,252 
data 0,31,194,0,32,62,0,63,255,0, 
127,255,0,119,255 

data 0,107,255,0,109,255,0,30,255 
,0, 126,70,7,254,248 

data 3,253,255,1,243,252,0,15,243 

,0,251,239,0,251,223 

data 0,251,191,0,157,216,255,204, 

83,255,101,199,255,33,248,63 

data 50,175,192,27,42,255,13,202, 

170,5,242,170,6,254,0 

data 11,127,254,149,191,254,182,1 

91.254.122.223.254.219.111.255 
data 93,183,255,85,215,255,150,21 
9,255,214,237,255,231,118,129 
data 245,122,255,249,187,31,0,225 
,223,128,225,223,128,225,223,128 
data 225,128,128,14,127,0,253,255 
,128,169,252,128,169,221,128 
data 16,207,0,247,0,0,247,128,0,2 
47,128,0,247,0,0 

data 119,0,0,119,0,0,119,0,252,11 

9.3.254.247.143.255 

data 224,63,255,222,176,3,189,160 

» I 

rem * ttt p1aats/num. data **** 
data0, 3,48,60,1,11,96,60,8,9,144, 
60,2,7,48,102,3,15,96,102,4,13,14 
4,102 

data5,6,48,144,6,14,96,144,7,12,1 
44,144,0,1,8,2,3,4,5,6,7 


*** EINDE LISTING ttt 


schu i -f spel 





regel 

1 

29 

regel 

460 

1 14 

regel 

2 

41 

regel 

470 

174 

regel 

3 

36 

regel 

480 

107 

r eg e 1 

4 

48 

regel 

490 

36 

regel 

5 

143 

regel 

500 

5 

regel 

6 

252 

regel 

510 

1 14 

regel 

10 

66 

regel 

520 

104 

regel 

20 

22 

regel 

530 

106 

regel 

30 

40 

regel 

540 

28 

regel 

40 

22 

regel 

550 

120 

regel 

50 

56 

regel 

560 

44 

regel 

60 

131 

regel 

570 

163 

regel 

70 

157 

regel 

580 

72 

regel 

80 

64 

regel 

590 

31 

regel 

90 

230 

regel 

999 

250 

regel 

100 

165 

regel 

1000 

237 

regel 

1 10 

135 

regel 

1005 

228 

regel 

120 

244 

regel 

1010 

132 

regel 

125 

158 

regel 

1015 

206 

regel 

130 

87 

regel 

1020 

26 

regel 

140 

98 

r eg e 1 

1025 

43 

regel 

150 

168 

regel 

1030 

1 19 

regel 

160 

231 

regel 

1035 

7 

regel 

170 

137 

regel 

1040 

1 12 

regel 

180 

131 

regel 

1045 

33 

regel 

190 

28 

regel 

1050 

38 

r eg e 1 

200 

218 

regel 

1055 

25 

regel 

210 

171 

regel 

1060 

103 

r eg e 1 

220 

1 14 

regel 

1065 

29 

regel 

230 

7 

regel 

1070 

128 

regel 

240 

215 

regel 

1075 

24 

regel 

250 

231 

regel 

1080 

20 

r eg e 1 

260 

83 

regel 

1085 

1 18 

regel 

270 

101 

regel 

1090 

25 

regel 

280 

228 

regel 

1095 

1 1 1 

regel 

290 

73 

regel 

1 100 

89 

regel 

300 

214 

regel 

1 105 

180 

regel 

310 

132 

regel 

1110 

28 

r eg e 1 

320 

10 

r eg e 1 

1115 

132 

regel 

330 

240 

regel 

1 120 

171 

regel 

340 

203 

regel 

1 125 

87 

regel 

350 

34 

regel 

1 130 

234 

regel 

360 

67 

regel 

1135 

185 

regel 

370 

72 

regel 

1 140 

153 

regel 

380 

155 

regel 

1145 

23 

regel 

390 

8 

regel 

1 150 

94 

regel 

400 

220 

regel 

1 155 

229 

regel 

410 

20 

regel 

1 160 

127 

r eg e 1 

420 

32 

regel 

1 165 

81 

regel 

430 

106 

regel 

2000 

1 1 

regel 

440 

40 

regel 

2010 

75 

regel 

450 

135 

regel 

2020 

166 




r eady 

■ 



Adres onbekend 


. ■. ï v 




U kent misschien een radioprogramma van deze naam; mocht u 
daar later niet zelf willen zitten om uw kennissen op te roepen 
om contact met u op te nemen, dan kunt u hun adres misschien 
beter goed bijhouden. Voor diskdrive-bezitters zou dat heel 
goed met dit programma kunnen. Ook kunt u op een eenvou¬ 
dige wijze etiketten met behulp het ’adres onbekend 5 pro¬ 
gramma uitdraaien. Complimenten aan de programmeur, het is 
uitermate gebruikersvriendelijk opgezet. 


100 rem adres onbekend / cbm-64 
110 rem door leo j. de rijk 
120 rem uit a’dam / 020-900419 
130 rem 337 















140 

150 

160 

170 

180 


190 

200 


210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 


530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

£>SO 


rem 

rem 

rem 

poke53281,0spoke53280,0:pokeB08,2 

51 

dima$( 100 ),b$( 100 ),c*( 100 >,d *(100 
), e$< 100 ), k*< 100 ), 1 *< 100 >, m*< 100 ) 

,n$< 100 ) 

dimo$( 100 ),f* < 100 ),t* < 100 ) 
print"CGLR—H0ME3CWIT3 l 8xspatie3 CRVS 
-aan] adres onbekend l 3xspatie3CRVS 
-uit 3" 

print"C4xneer3oud bestand laden i 
/n"s poke649, 10 

get i $i if j$a" "or ( j$<>‘'n"and j*< >" J " 

)then 220 
poke649,0 
if j* = " j "then 1290 
goto390 
k = k + 1 

print"tCLR — H0ME3 CRVS — aan3 ree nr. 

CRVS-uit3 "5 kïprint 
input"Cneer]achternaamC2xspatie3 < 

) = menu " ja$(k) 
ifa*(k)="+"thenk=k-l: goto390 
input"voornaam";b$ (k) 
input"adres";c * <k) 
input"postcode"|f*(k) 
input"plaats"j d t < k) 
input"tele^oon")e$(k) 
pr i nt"[ 2 xneer3 gegevens o.k j/n" 
geta$: ifa$=" "or (a$< >" i "anda$< >"n'' 

)t h en 360 
ifa$«"n"then270 
k«k+liww»l 8 goto270 
rem****************************** 
rem menu 

rem****************************** 

pr int " CCLR-H0ME3 “8 gosub1380s poke 6 
49,10 

print"C2xneer3l*invoer" 
print"Cneer 32 = zoeken" 
print"Cneer33=saven" 

print" Cneer]4*ander bestand laden" 
print"Cneer]5»einde" 
print"C2xneer]CRVS~aan3 maak uw k 
euze CRVS—uit3" 
geth$:ifh*='""then490 

onval<h$)goto260,760,1080,1220,13 
90 

i-f h$< " 1 H orh*>"5"thengosubl3B0: goto 
430 

pr i nt " CCLR-HOME3nu aanwezig is CRVS 
-aan! "jmid$(sa$, 2 , 10 ) 5 iprint" adre 
ssen CRVS-uit3" 

print"ander bestand ladenszeker w 
eten j/n" 

get j *:if j$«""or(j$< >"n"andj$<>"j" 

)then540 

if j'*«" j "thenl 220 
goto390 

rem****************************** 

rem zoek menu 

rem****************************** 

print"C 2 xneer3opslaan...... 

.-C2xspatie3oC2xspatie3-" 

print" Cneer]printen. ( incl.opslag) 

...-C2xspatie3p[2xspatie]- " 

print"Cneer3volgende. . . ... . . - 

. . . - C 2x sp a t i e 3 v C 2x sp at i e 3 - " 

print" [ neer 3 start menu........... 

. . . - C 2x sp a t i e 3 C 2x sp a t i e 3 - " 

print"CneerJwijzigen..... 

...-C2xspatie]wC2xspatie]- " 
print” CneerJeinde . 


660 

670 

680 

690 


700 

710 

720 

730 

740 


750 

760 

770 

780 

790 

800 

810 

820 


B30 

840 

850 

860 

870 

880 

890 

900 


910 

920 

930 

940 


950 

960 


970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 
1090 
1100 
1110 
1 120 

1130 

1140 
1 150 


. . .-C2xspatie3e C2x spat i e3 - " 

print"Cneer]schrappen... . . . . > 

...-C2xspatie3sC2xspatie3- " 
ant = "opv<-we3" 
ifg<lthenreturn 

print"C3xneer3CRVS-aan3 in opslag 
"str$<g)" namen CRVS-uit3C5xop 3" 
ireturn 

rem****************************** 

* 

rem schrappen 

rem****************************** 

* 

s=*t s f orm®stok 

a$ ( m)«a$(m+1) 1 b* <m)«b* <m+1) ic$(ra) 
(m+1)id*(ffl)=d*(m+l):e$ <m)=e* Cm 

+ 1 ) 

f♦<m)*f*<m+1)8nextm8 k»k-l 1 ww»l 

s return 

rem***************************** 

rem zoeken 

rem***************************** 

gasubl380sprint"C2xneer31= geheel 
bestand doorlopen" 
print"Cneer]2« zoeken per mam" 
print" Cneer]3 a menu" 

ifg>0thenprint" Cneer34» printenC2x 

spat ie3CRVS-aan3 ,, str$<g) n CRVS 

-uit3 namen" 

geti$: if j$“""then83C 

ifj$<"1"orj$>"4"then830 

if j*="1"thenl510 

ifj*="2"then890 

if j*«"3"then390 

if j$«"4"thengosub1680:gotol720 
gosub1380 

pr i nt"C2xneer 3zoeken: welke naamC3x 
spatie3< *■ - menu ) " * i nput w* 8 w*l en < 
w$) 

ifw*«"♦"then goto390 

fort a ltok j ifleft$(a*(t),w)-w*then 
d 38 1 s goto 960 

nex 11 

ifd*0thenprint" CCLR-HQME3voor "w* 
"C2xspatie3niets (meer)C2xspatie3 
aanwez ig" 3 forj =s ltol500s next 
goto760 

print" CCLR-HOME3"sprint b*(t) " " 

a$ < t) :print:printc$(t) :pr intf$(t) 

"C6xspatie]"d$(t) 

printel(t): d-0: gosub570 

g e t j $ 3 if j♦®""then980 

fora=lto7:ifmid$(an$,a,1) s i$thena 
= 7 s gotol010 
nextas goto980 

if j**"v"thennextt 

if j $="p"thengosubl680:gotol720 

if j$="a"theng = g+ l: gosubl6B0:next 

t 

if j $="f"thent = k: goto390 

ifi$="w"thengasub2200:nextt 

if j$="e"thent-k: gotol390 

if j $="s"thenprint"CCLR-H0ME3":gosub 

700:gosub570:nextt 

rernumimmumimtuu** 

rem saven 

rem******i********************* 

gosub1380 

print"C2xneer 3 savenszeker weten j 
/n" : 

getj*sifj*«""or(j$<>"j"andj$<>"n" 

) then 1130 i 

i fi$="n"then390 

gosub1890:g «0 j 
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: 


1670 goto390 
1680 


1 160 input " C2xneer3savenaam " ;sa$: i f sa* 
=*" + " then390 

1170 sa$="“"+sa$ 

1180 open 8 , 8 , 8 ,"Ss"+ 3 a$+",s,w" 

1190 print#8pksfori*ltok 

1200 print# 8 > a$(j)","b$(j)" l "c«(j)' , ,"f 
*(j ) ”, "d* < j)","e* <i)s nextsclose8 

1210 print"CCLR-H0ME3"k" adressen CRVS 
— aan 1 ";mid*(sa*,2, 10) 5 sprint" CR 

-uit 3 gesaved" sgoto430 

1220 rem**************************** 

1230 rem laden 

1240 rem**************************** 

1250 gosubl380 

1260 pr int"C4xneer 31aden: CRVS-aan3 zek 
er weten i/n CRVS—uit]" 

1270 getj$:if j**""or(i*<>"n"andj*<>"i" 
)thenl270 

1280 i-f i*«"n"then390 

1290 gosub1890s ifu*othenprint"CCLR-HOM 
niets op deze disk"! ■for j = lto!500: 


1690 rem vullen 

1700 rem****************************** 


1710 p*p+lik* <p)«a*< t) 1 1 *(p)“b*(t>s m* < 
p) H c$(t) in$(p) B d$H) «t0(p)“-f*<t> 

8 return 

1720 reflitUttlttlUtUlltmtltUimi 


1730 rem printer 

1740 rem****************************** 


1750 ifp»0then760 
1760 goto2120 

1770 open4,4sp*»chr*<16) 1 fort*ltopstep 


1780 print# 4 ,chr*( 14 ) l*<t) " "k*<t)jspr 
int# 4 p p$ " 36 "l<<t + l> " "k*(t + D s pr 

int #4 p 

1790 print# 4 ,chr$< 15 ) m*(t) jiprint #4 

p p$" 36 "m$<t + l) 

1800 print# 4 p t*(t)"C 9 xspatie 3 "n*<t) ;s 
print# 4 pp*" 36 "t*(t+ 1 )"C 9 nspatiel" 
n* (t + 1 ) 

1810 fori«lto 5 iprint# 4 psnext 
1820 next 8 close 4 sprint"C 2 xneer 3 -return 
1 B 30 get a$ 3 i f a* 53 " " then 1 830 
1840 ifa$Ochr$ ( 13 ) t hen 1830 
1850 forj*ltopsk* < i )-""1 1 * < J)"«m* < i ) 
"3n*(i)®""3next 3 p =0 sg *0 s goto 


1860 

1870 rem dir 

1880 remt*t****t*t*t*t*tt*t**tS*t*t 

1890 openlSp 8 , 15p"10"3 open2, 8 ,2, 

1900 t® 183 s=lsprint" C 2x neer 3"su aa 0ssa* 


1910 print#15,"ui"j2j0jtjs 
1920 print#15," b - p " 5 2 ; 0 
1930 get#2pX$sifx % =""thenx$=chr$( 0 ) 

1940 t=asc(x*> 

1950 get#2pX$s 
1960 s = asc(x*) 

1970 f orx*0to7 
1980 print#15,"b-p";2*x*32+2 
1990 get#2,x*sifx*«" "thenK$ B chr$(0) 

2000 ifasc(K$)=0then2100 
2010 print#15,"b-p"j2#x*32+5 
2020 ff*=" " 

2030 fory=0tol5 

2040 get#2,x$sifx""thenx$=chr*( 0 ) 

2050 ifasc(x$)=160then2080 
2060 ff*»ff*+x* 8 ifleft*<ff*p 1 )<>"-" 
thenff*«""iy-15 
2070 nexty 

2080 ifff*-""then 2100 
2090 printff*su«1 
2100 nextxsift<>0thenl910 
2110 close 2 :closelSsreturn 
2120 rem****************************** 
2130 rem printer controle 

2140 rem****************************** 
2150 open4,4spoke768,185sprint#4 p sclose 
4s poke768p139sifst<>-128thengoto1 


if x* 


is nieuwe invo 
er is een wi i2 


1490 geta$:ifa*=""then 1490 
1500 return 

1510 rem***************************** 

1520 rem in totaal bestand zoeken 
1530 rem***************************** 

1540 f art = 1 tok sprint"CCLR-H0ME3" 

1550 printb$(t)" "a*<t)sprintsprintc$( 
t)sprintf*(t)"C5xspatie3"d*(t)s 
printe*(t) 

1560 gosub570 

1570 getj*sifj*-""thenl570 
1580 fora=lto7s if(nid$(an$,a p l)»j$thena 
®7 8 goto1600 
1590 nextsgoto1570 

1600 i f j "o"theng=g + lsgosubl680 s nex 11 

1610 ifj*="+"thent=ksgoto390 

1620 if j*="p"thengosub1680s gotol720 

1630 ifj$="v"thennextt 

1640 if j *="w"thengosub2200 3 nextt 

1650 ifj$="e"thent=k:goto 1390 

1660 ifi$="s"thengosub7008nextt 


2160 print"CCLR-H0ME3printer staat nie 
t aangesloten" 

2170 pr int"Cneer3printer aanzetten en 
drukC2xspatie3 een toets" 

2180 geta$!ifa$®""then2180 
2190 goto1720 

2200 rem****************************** 
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22 I @ rem wijzigen 

2220 rem****************************** 

* 

2230 print"CCLR-HOME^CóxneerJ"b$ (t)" " 

a $ (t > :printc$(t) ï printf$ (t) "C 6 x 
spatie3 "d$ (t) iprinte* (t> 

2240 print"C2xneer]CRVS-aan] wijzigen 
of return CRVS-uit3CBxop 3" 

2250 pokel9,64 sww=l 

2260 print"C HOME 3" b* (t) sinput"CHOME 3 "5 
b$ (t) 

2270 print"CH0ME3 C20xspatie3 " 

2280 print"CHQME3"a*(t) 1 input"CHOME 3"; 
a$ <t) 

2290 print"CHOME3C20xspatie3" 

2300 print"CHOME3"c$<t>sinput"CHOME3 "5 
c$ (t) 

2310 print"CH0ME3 C20xspatie3" 

2320 print"CHOME3"f*<t> s input"CHOME 3"j 
f * <t > 

2330 print"CHOME3C20xspatie3" 

2340 print"CHOME3"d$(t) i input"CHOME 3 "5 
d$ (t) 

2350 print"CHOME3C20xspatie3" 

2360 print"CHOME3"e*<t) ! input"CHOME 3 "5 
e$ < t)spokel9,0sreturn 


*** EINDE LISTING 


adres 

onbekend 

regel 

100 

220 

regel 

110 

212 

regel 

120 

224 

regel 

130 

44 

regel 

140 

143 

regel 

150 

143 

regel 

160 

143 

regel 

170 

90 

regel 

180 

157 

regel 

190 

217 

regel 

200 

206 

regel 

210 

54 

regel 

220 

231 

regel 

230 

150 

regel 

240 

172 

regel 

250 

37 

r eg e 1 

260 

35 

regel 

270 

21 

regel 

280 

12 

regel 

290 

1 1 

regel 

300 

105 

regel 

310 

118 

regel 

320 

107 

regel 

330 

205 

regel 

340 

101 

r eg e 1 

350 

226 

regel 

360 

2O0 

regel 

370 

1 16 

regel 

380 

74 

regel 

390 

123 

r eg e 1 

400 

196 

regel 

410 

123 

regel 

420 

4 

regel 

430 

64 

regel 

440 

41 

regel 

450 

219 

regel 

460 

46 

regel 

470 

197 

regel 

480 

237 

regel 

490 

120 

regel 

500 

220 

regel 

5 10 

1 91 

regel 

520 

73 


*** 


regel 

530 

177 

regel 

540 

236 

regel 

550 

165 

regel 

560 

37 

r ege 1 

570 

123 

regel 

580 

253 

regel 

590 

123 

regel 

600 

196 

r eg e 1 

610 

219 

regel 

620 

210 

regel 

630 

238 

regel 

640 

230 

regel 

650 

92 

regel 

660 

241 

regel 

670 

236 

regel 

680 

235 

regel 

690 

189 

regel 

700 

165 

regel 

710 

51 

regel 

720 

165 

regel 

730 

85 

regel 

740 

219 

regel 

750 

151 

regel 

760 

81 

regel 

770 

91 

regel 

780 

81 

regel 

790 

93 

regel 

800 

45 

regel 

810 

147 

regel 

820 

140 

regel 

830 

122 

regel 

840 

170 

regel 

850 

142 

regel 

860 

105 

regel 

870 

101 

regel 

880 

179 

regel 

890 

89 

regel 

900 

200 

regel 

910 

39 

regel 

920 

1 1 1 

regel 

930 

214 


regel 

960 

129 

regel 

970 

106 

regel 

980 

128 

regel 

990 

83 

regel 

1000 

39 

regel 

1010 

194 

regel 

1020 

207 

regel 

1030 

166 

regel 

1040 

165 

regel 

1050 

78 

regel 

1060 

188 

regel 

1070 

42 

regel 

1080 

39 

regel 

1090 

12 

regel 

1100 

39 

regel 

1110 

89 

regel 

1120 

187 

regel 

1130 

24 

regel 

1140 

128 

regel 

1150 

194 

regel 

1160 

63 

regel 

1170 

61 

regel 

1180 

219 

regel 

1190 

30 

regel 

1200 

9 

regel 

1210 

156 

regel 

1220 

39 

regel 

1230 

243 

regel 

1240 

39 

regel 

1250 

89 

regel 

1260 

46 

regel 

1270 

29 

regel 

1280 

128 

regel 

1290 

1 15 

regel 

1300 

134 

regel 

1310 

165 

regel 

1320 

219 

regel 

1330 

1 10 

regel 

1340 

10 

regel 

1350 

211 

regel 

1360 

129 

regel 

1370 

135 

regel 

1380 

97 

regel 

1390 

39 

regel 

1400 

244 

regel 

1410 

39 

regel 

1420 

28 

regel 

1430 

122 

regel 

1440 

248 

regel 

1450 

37 

regel 

1460 

158 

regel 

1470 

209 

regel 

1480 

138 

regel 

1490 

155 

regel 

1500 

142 

regel 

1510 

81 

regel 

1520 

184 

regel 

1530 

81 

regel 

1540 

81 

regel 

1550 

184 

regel 

1560 

41 

regel 

1570 

172 

regel 

1580 

88 

regel 

1590 

18 

r eg e 1 

1600 

166 

regel 

1610 

165 

regel 

1620 

207 

regel 

1630 

194 

regel 

1640 

78 

regel 

1650 

188 

regel 

1660 

29 

regel 

1670 

37 


regel 

1710 

45 

regel 

1720 

165 

regel 

1730 

179 

regel 

1740 

165 

regel 

1750 

1 

regel 

1760 

78 

regel 

1770 

211 

regel 

1780 

197 

regel 

1790 

1 1 

regel 

1800 

44 

regel 

1810 

116 

regel 

1820 

214 

regel 

1830 

153 

regel 

1840 

67 

regel 

1850 

122 

regel 

1860 

253 

regel 

1870 

1 10 

regel 

1880 

253 

regel 

1890 

44 

regel 

1900 

113 

regel 

1910 

233 

regel 

1920 

5 

regel 

1930 

242 

regel 

1940 

153 

regel 

1950 

242 

regel 

1960 

152 

regel 

1970 

150 

regel 

1980 

26 

regel 

1990 

242 

regel 

2000 

106 

regel 

2010 

29 

regel 

2020 

166 

regel 

2030 

198 

regel 

2040 

242 

regel 

2050 

216 

regel 

2060 

240 

regel 

2070 

219 

regel 

2080 

155 

regel 

2090 

187 

regel 

2100 

249 

regel 

2110 

218 

regel 

2120 

123 

regel 

2130 

25 

regel 

2140 

123 

regel 

2150 

7 

regel 

2160 

1 14 

régel 

2170 

236 

regel 

2180 

152 

regel 

2190 

83 

regel 

2200 

165 

regel 

2210 

246 

regel 

2220 

165 

regel 

2230 

34 

regel 

2240 

7 

regel 

2250 

98 

regel 

2260 

87 

regel 

2270 

240 

regel 

2280 

85 

regel 

2290 

240 

regel 

2300 

89 

regel 

2310 

240 

regel 

2320 

95 

regel 

2330 

240 

regel 

2340 

91 

regel 

2350 

240 

regel 

2360 

188 

r eady 

a 



regel 940 46 
regel 950 38 


regel 1680 165 
regel 1690 101 
regel 1700 16 5 
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Paranormaal 


260 -f orx = l to32s reada (x ) s next 

270 printtab(3);!forx*lto32:printa (x) 


Hoeveel geheugen leest uw computer, alleen zijn eigen 64 Kb 
RAM of misschien meer? Bij dit programma vraagt de computer 
u een getal in gedachten te nemen en laat u vervolgens zes 
kaarten zien. Op deze kaarten staan getallen, u dient te zeggen 
of uw getal op een kaart voorkomt. Na u zes kaarten te hebben 
voorgelegd gokt de computer naar het getal wat u in gedachten 
had; maar waarom gokt hij nu nooit mis... 


280 i -f x =4 or x =8 orx*12 orx=16 orx ss 20 
orx =24 arx-28 arx s 32 thenprints 
printtab(3 )5 
290 next x 

300 print"is uw getal hierbij <j/n>? 


310 getal) i-f a$< >" j "anda$<>"n"thBn 310 
320 i-fal 3 " j "then a»a+a<1) 

330 next kaart 1 gosub900 
340 prinf'uw getal was 1 "iprintïpr int 
ïgot o 2000 
890 end 

900 printchrl(147 )1 remark. (schoon sch 
erin) 

905 poke532B0 f 61 poke53281, 61 print" 

C GEEL 3" 5 

910 print"£4xspatie3U- 


920 print"C4xspatie3I gedachten lezen 
C2xspatie3r.wil1emsen.I" 

930 print"C4xspatie3J-— 


940 printsreturn 

1000 getal)ifa$< >chrl<13)then 1000 
1010 return 

2000 b=int(a/ 10 )sc»a-<b* 10 )st *10 

2010 restore)forw*ltal92ireadd)next 

2015 i-f b = 0then3000 

2020 forw= 1 tob* 8 ireadd«nextw 

3000 forw=lto 8 sreadd 

3010 i-fdandl28thenprinttab <t> 3 "Q " sprint 
"Cop3"j 

3020 ifdand64thenprinttab<t>;"Erechts3 
Q")print"[op 3"5 

3030 i-fdand32thenpr inttab < t > ; "C2xrechts3 
Q" jprinfCopl" 5 

3040 ifdandl 6 thenprinttab<t) ; "C3xrechts! 
Q":print"C op 3 " ; 

3050 i-fdandSthenprinttab <t> ; "C4xrechts3 
Q» 5 print“t op 3"| 

3060 i-fdand4thenprinttab (t) j " C5xrechts3 
Q”« pr int"top3 " 5 

3070 ifdand2thenprinttab<t>!”C 6 xrechts! 
Q ,, :print"Cop3"j 

3080 ifdandlthenprinttab <t )\ "C7xrechts! 

Q"sprint”Cop3 M s 
3100 print:hextw:ifhthen4000 
3110 printchrl(19)«remark (cursur home 


10 rem paranormaal c64 
20 rem r.willemsen 
30 rem 1274 mb huizen 

100 dima(32)sgosub900 

110 printtab (12) "U —-1" 

120 printtab(12)"Iinstrukties!" 

130 printtab (12) " J-K" 

140 print"neem een getal in gedachten 
tussenC6xspatie3 0 en 64 (1 tot e 

n met 63) . " 

150 print"de computer laat u zes kaar 
ten zienC5xspatie3 met getallen." 

160 print"mocht uw getal op de kaart 
staan tijpeC2xspatie3 dan de lette 
r " j ? van ja, 

170 print"staat het getal er niet bij 
tijpe danC3xspatie3de letter 'n” 
van nee." 

180 print"CSxneer3klaar met lezen? dr 
uk dan op return." 

190 gosub1 000 sgosub900 

200 print"we gaan beginnen, neem een 


3120 print"C6xnttr3 "1 b*cit«23ih"l 1 
3130 goto2010 

4000 print"C2xneer3wilt u nog een keer 
spelen (j/n > ?“ 

4010 getal) i-falO" j "anda*< > " n " then4010 
4020 ifal»"j"then restore 1 c1r* goto 1 00 
4030 gosub 9008print"C12xspati■3t o tC 
2xspatie3z lens !" 

4040 end 

5000 remark data voor kaarten 

5010 data 01,03,05,07,09,11,13,15,17,1 

9.21.23.25.27.29.31 

5020 data 33,35,37,39,41,43,45,47,49,5 
1,53,55,57,59,61,63 

5030 data 02,03,06,07,10,11,14,15,18,1 

9.22.23.26.27.30.31 

5040 data 34,35,38,39,42,43,46,47,50,5 


210 print"C14xn 


220 gosub 1000 
230 f ar kaart = 11 06 
240 gosub 900 

250 print"C12xspatie3kaart # 
print 


























*** EINDE LISTING *** 


Speciale Xnfolist 
C-16 cassette 


Onze lezersservice Infolist heeft een speciale cassette 
samengesteld waarop uitsluitend C-16 programma’s 
zijn te vinden. 

Allereerst natuurlijk de nieuwe Checksum.C-16 en 
Visi.C-16, maar daarnaast ook een aantal listings, die in 
de voorgaande nummers xijn verschenen, listings uit dit 
nummer en ook nog een aantal niet eerder gepubli¬ 
ceerde listings. Kortom, een waardevolle tape voor 
beginners én gevorderde C-16 computeraars. Daar¬ 
naast zijn de programma’s natuurlijk ook allemaal 
geschikt voor de Plus/4. 

De tape is - net als alle andere Infolist produkten - te 
bestellen door ƒ 24,50 (voor de diskette ƒ 29,50) over te 
maken naar giro 3157656 t.n.v. Infolist, Huizen. 

Na ontvangst van uw betaling wordt de tape/diskette 
naar U opgestuurd. Vermeld bij bestellen wel duidelijk: 
C-16 tape of C-16 diskette. 
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40.41.42.43.44.43.46.47.56.5 
,57,60,61,62,63 

16, 17, 18, 17,20,21,22,23,24,2 
,27,28,27,30,31 

48.47.50.51.52.53.54.55.56.5 
,57,60,61,62,63 

32.33.34.35.36.37.38.37.40.4 
,43,44,45,46,47 

48.47.50.51.52.53.54.55.56.5 
, 57,60,61,62,63 

rk data voor afdrukken getall 

126.127.127.127.127.129.127, 

24.56.24.24.24.24.24.126 
124,130,130,4,8,16,32,255 

126.127.1.14.14.1.129.126 
178,178,178,255,255,6,6,6 

255.128.254.1.1.127.127.126 
32,64,128,128,126,127,129,12 

255,1,2,4,8,16,32,64 

126.129.127.126.126.127.127, 


Speciale service voor C-l 6 bezitters 


10 

106 

regel 

3010 

172 

20 

191 

regel 

3020 

152 

30 

191 

regel 

3030 

176 

100 

221 

regel 

3040 

207 

110 

234 

regel 

3050 

189 

120 

43 

regel 

3060 

214 

130 

225 

regel 

3070 

241 

140 

249 

regel 

3080 

13 

150 

218 

regel 

3100 

36 

160 

61 

regel 

3110 

32 

170 

115 

regel 

3120 

248 

180 

246 

regel 

3130 

76 

190 

174 

regel 

4000 

149 

200 

184 

r eg e 1 

4010 

152 

210 

120 

regel 

4020 

141 

220 

78 

regel 

4030 

222 

230 

177 

regel 

4040 

128 

240 

38 

regel 

5000 

211 

250 

244 

regel 

5010 

117 

260 

44 

regel 

5020 

170 

270 

187 

regel 

5030 

107 

280 

197 

regel 

5040 

169 

290 

218 

regel 

5050 

105 

300 

33 

regel 

5060 

167 

310 

103 

regel 

5070 

119 

320 

120 

regel 

5080 

163 

330 

85 

regel 

5090 

129 

340 

70 

regel 

5100 

173 

890 

128 

regel 

5110 

151 

900 

255 

regel 

5120 

173 

905 

33 

regel 

5200 

180 

910 

251 

regel 

5210 

145 

920 

36 

regel 

5215 

31 

930 

242 

regel 

5220 

74 

940 

97 

regel 

5230 

77 

1000 

120 

regel 

5240 

1 19 

1010 

142 

regel 

5250 

188 

2000 

165 

regel 

5260 

38 

2010 

130 

regel 

5270 

88 

2015 

25 

regel 

5280 

139 

2020 

157 

regel 

5290 

24 

3000 

156 





Speciale service voor C-l 6 bezitters 


Uitbreidings-unit 
voor de C-16 

uitbreidingsmodules voor de C-l 6, waarmee 
de geheugencapaciteit tot 64 KB is uit te breiden. 

MCT 64 K RAM BOARD 

Deze uitbreiding moet achterin de C-1 6 worden inge¬ 
bouwd (met montagevoorschriftjen laat dus de car- 
tridge sleuf vrij voor andere software. Alle C-l 6 
software blijft bruikbaar, maar ook de Plus/4 software 
kan nu gebruikt worden. Er is met de MCT 64K maar 
liefst 48 KB vrij in de High-Res mode (normaal 2 KB) en 
een enorme 60.5 KB vrij RAM voor Basic programma's. 


nü in prijs 

verlaagd: 


ƒ239 


incl. BTW 

en verzendkosten 

Te bestellen door overmaken van dit bedrag op 
giro 3157656 tnv. Infolist Huizen met vermelding 

MCT G4K. Inl. 02152-62343 
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120 getkeyy$: if y$0"i"andy$0"t"andy$ 
<>"p"andy$O ,, s ,, thenl20 
130 printy$! ify$="i"thengosub300 
140 i-f y$="t "thengosub 1700 
150 i-f y$="p"thengosub 1900 
160 i-fy$="s"thengosub2100 
170 goto40 

199 5 

200 rem - keuze uitbreiden/verbetere 
n — 

299 s 

300 scnc1rsgosub700 

310 s“0 ■ gosub400» i-f y$ = e$thenreturn 
320 i-fy$ = r$thenar = ar+ls t$(ar)=z$s i = i + 

1s gosub3200 

330 ify$="Cop]"thengosub800 
340 ify$="C HOME3"thenscnclr:i = 1:gosub 
800 

350 i-f ar < 200and-f r e ( 1 ) > 1 50t hen3 1 0 
360 return 
388 s 

390 rem - 'typmachine'-routine - 

399 : 

400 z$="":j = l 

410 1z = 1 en(z$) sgosub3000 

420 if y$=" Cl inks] “and j >lzandi >lthenprint 
" C2x1inks3";i i =j-1sgoto410 
430 i-f y$ = " Cl inks] "and j >1 thenpr intmid$ 
(z$, i, 1) "C2xlinks ]"5 : 5 = i — 1 
440 ify$=" [rechts! "and i<=l zthenpr intmidl 
<z$,j,l);:j=j+l 

450 ify$="CINSert]"andi<=lzandlz<akthen 
gosub3300 

460 ify$=d$andj>lthengosub3400 

480 if y$=" Cl inks] H ory$= H [rechts] "ory$ 

="CINSert]"ory$=d$ory$="CCLR-H0ME3" 
ory$="Cneer]"then410 
490 if y$=e$ands=0thenreturn 
500 i-f y$ s " C HOME 3 "andar >0ands = Öthenreturn 
510 ify$="Cop3 "andar >0ands = 0thenreturn 
520 if y$*e$ory$=" C HOME 3 "oryis 11 C op 3 "then 
410 

530 ify$=chr$(34)theny$=" ? " 

540 ify$=r$then630 

550 if j=ak + lthenprint" Clinks!"::goto 
600 

560 printy*; ! if j >lzthenz$ = z$+y$: j = j + 1 
!goto410 

570 ifj< = lzthenz$ = left$(z$, i-1)+y$ + right 
(z$,lz-j) j i = j + 13 got q 410 
600 getkeyyi:ify$=e$ands=Cthenreturn 
610 ify$<>r$andy$<>" Cl inks] "andy$< >d$ 
then600 

620 if y $="Clinks]"ory$ = d$then420 
630 ifj<=lzthenprintmid$(z $ ,j,1)selse 
print" " 

640 return 
688 : 

690 rem - start invoeren tekst - 

699 s 

700 gosub3200:ifar>0then740 

710 print”hoeveel tekens per regel 
720 s=lsgosub400sak«val(z $)sifak>70then 
a k = 70 

730 scnc1r 

740 i=arsifar>5thenforj=ar-4toarsprint 
t $ ( j )snextsreturn 

750 ifar >0thenforj = ltoarsprintt$(j )snext 
760 return 
788 s 

790 rem — hoofdroutine verbeteren - 

799 ï 

800 s=l:printe$"d[op]"e$"j " - 
810 printte(i);:gosub32O0 

820 getkeyx*:ifx* = e*thenscnc1rsgosub7 

40:gosub3200:return 




I 


rem tekstwerker / cl6 en plus/4 

rem door niek meijer 

rem uit maasland / 01899-24758 

rem 1009 

rem 

rem — hoofdmenu — 


e$ = chr$(27) s d$ = chr$(20) :r$ = chr$( 
3) s dimt$(200) s poke806, 103 
for j = lto8s keyj p ""s nexts printchr$ 
14)chr$(8) 

co1or 0,2:color4,2:colorl,2,3s ak = 
0 

poke65286,ll:printe*"n[10xspatie 

tekstwerker[Bxspatie] " 

print" 

"e$"t"; 

print"C6xspatie]beschikbaar"fre( 

) " bytes" 

print"Cneer][i3 invoeren" 
print"Ct] van/naar tape" 
print" Cp3 printen" 
prinf'Cs] stoppen" 

print"Cneer 3C-3C2xlinks]”;spokeéï 
2B6.27 F 








kS 




■ 








Van Niek Meijer uit Maasland ontvingen we een volledig in Basic 
geschreven tekstverwerker. Als u over een printer en een 
cassetterecorder beschikt dan kunt u vanaf nu met uw Cl 6 uw 
correspondentie per computer gaan voeren. 

Een korte handleiding: 

Cursor omhoog en omlaag: doorlopen van de reeds geschre¬ 
ven tekst. 

Cursor links en rechts: doorlopen van de onderste regel. 
Hometoets: laat u naar de eerste regel springen. 

Esc: zorgt voor een sprong naar de laatste vijf regels of voor een 
sprong naar het menu. 
t: voegt een regel tussen de tekst, 
w: haalt een regel weg. 

*: markeert plaats waar regel naar kan worden verplaatst, 
v: verplaatst regel in de tekst naar de plaats waar een sterretje 
staat. 

Mocht u het een ander nog niet geheel duidelijk zijn, dan moet u 
maar eens gaan expirimenteren met het programma. Het is zeer 
gebruikersvriendelijk en er kan maar weinig misgaan. 




:V. 








—— 
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PRINT-OUT C-16 


Tekstwerker 






























SpMlllïtpip 

WÈÊÊÊÈÊÊÈÈÊIÊÈÊÊÈËÊm 

ÜtlpS ' S ' pgglf: 






VAN ST ART MET 
DE C-161^i^l 


IN BASIC 3.5 






tffisSSIt 

silMlS 


fjpmsHH 
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830 

840 

850 

860 

870 

880 

890 

900 

910 
920 
930 
999 
1 100 
1 199 
1200 
1210 
1220 
1230 
1288 
1290 

1299 

1300 
1310 

1320 
1 330 
1388 
1390 

1399 

1400 


i -f x $ = " CH0ME3 "thenscnclr: i=0: goto9 
30 

i -f x $ = " t " thengosub 1200 
i-f x$="w"andi >0thengosubl300 
i-fx$=" Crechts]"thengosubl400 
i-f k$=" Cl inksl "thengosub 1410 
ifx$="v"thengosubl500 
i-f x$=" Cneer ] "then920 

ifx$="Cüp3"andi>lthenprinte$"dCop]" 
e$" j"; : i = i- l:goto810 
g ot o820 

print: i-fi> = arthenreturn 

i=i+l:gota810 

■ 

rem - tussenvoegen - 

« 

ifar>199or-fre(1)<150thenreturn 
fari=artüistep-l :t $(j + 1 ) =t$ <1) : next 
ar=ar+1:printB$"d";: gosub3200 
gQsub400:t$(i)=z$:print"[op] ,, 5 : return 


rem 


— verwijderen — 


-forj=itoar-l:t*<i)=t$(j + l):next 

t$(ar)="":ar = ar-l:printe$"d" t $ ( i ) 
• 

i-f i >arthen print" Cop] " ; : i = i- l 
gosub3200:return 


rem 


- regel verbeteren - 


printe$"i";: z $ = t $ < i ):j=l:gosub410 
:gotol420 


1410 

1420 

1488 
1490 
1499 
1 500 

1510 

1588 

1590 

1599 

1700 


1730 

1740 

1750 

1755 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 


z $ = t$(i> s j =1 en(z$)+lsgosub410 
t$(i)=z$:print"Cop]"e$"d"t$(i); 

:r et ur n 

m 

rem - regel verplaatsen naar * - 

m 

print"*C1in k s]"; :3 = 1:dountilt*(j) 

= " * " o ri> a r-1:j = i + 1sloop 

t$(j)=t$(i)iprint" :return 

■ 

rem - van/naar cassette - 
« 

print"CCLR-HOMEU CneerlCv] van tap 

e":print"Cn] naar tapeCneerl"sprint 

"C-3 C2xlinks]"; 

getkeyk$: i-f k$ = e$thenreturn 

i-f k$< >"v"andk$< >"n"thenl730 

pr intk$:print"CneerlCRVS-aanlband 

je klaar?CRVS-uitl -Clinksl"; 

getkeyy$: i-f y$ = e$thenreturn: elseif 

y $ < >"j"thenl755 

pr inty$: i-f k$="v"then 1800 

op en 1, lp lp"t":print#lpaksprint#lp 

ar 

fori a ltoar:l=len(t$(i)):print#l,1 
pr intttlp t$(i) :next:gotol870 
1 r = ar 

openlp 1,0: print " Cneer 3 C2xl inksl-fi 
le gevonden" 

gosub3000: pr inty$s i-fy$ = e$thenl870 
input#l,ak:input#l,ar:ar=ar+lr 
■fori=lr + ltoar: inputttl, 1 : ifl=0then 
1860 






Direkt te bestellen bij: 

Infolist, Ceintuurbaan 5, 

1271 BE Huizen. 

Alleen levering na vooruitbetaling 
van ƒ30,50. 

Gironummer 3157656 tnv. Infolist, Huizen. 


Een Nederlandstalig boek (168 
pag.), waarmee u niet alleen inzicht 
krijgt in wat er met Basic 3.5 alle¬ 
maal mogelijk is, maar ook veel bre¬ 
dere computertoepassingen be¬ 
handeld worden en randapparatuur 
en software uitgebreid aan de orde 
komen. 


Van start met de C-16 in Basic 3.5 


I ■ ï ■ ■ ■ ■ " 

y m -V {v - 

■■ 

ff :■ 

~ i 






Het onmisbare boek 
voor iedere C-16 


bezitter, compleet met 
vele 

programmavoorbeelden, 
zoals een klein 
tekstberwerkings - 
programma. 


Te koop bij Filmpost, Gameworld, 
Calimero, Verwijs en Stam, Collec¬ 
tief, PC-shop, Radiobeurs, Cafka. 


VOOR DE C-16 
ook bruikbaar 
voor PLUS/4 


Prijs 

ƒ 27,50 

plus ƒ 3,- 
verzendkosten 
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regel 200 
regel 279 
regel 300 
regel 310 
regel 320 
regel 330 
regel 340 
regel 350 
regel 360 
regel 388 
regel 390 
regel 399 
regel 400 
regel 410 
regel 420 
regel 430 


1410 


uit 


1910 i-f y$< >" j "thenreturn 
1920 rr=ar:rs=l:trapl990ïopen4,4,7 
1930 dowhilerr/55>l 
1940 -F or i =r stor s + 54 
1950 print#4,5pc(10)t$(i):nextl 
1960 -forj = ltol7:print#4:nextj 
1970 rs=rs+55srr=rr-55:1oop 
1980 fori=rstoar:print#4,spc< 1 0 > t $ (i) : 
nex t 

1990 c1ose4:return 

1999 : 

2000 rem — stoppen - 

2099 s 

2100 print" Cneer3CRVS-aan3stoppen?CRVS-ui 

3 ";:gosub3000 

2110 if y $ < >" i “thenreturn 
2120 printe$"n":pake806,101send 
2199 ï 

2990 rem — cursor - 

2999 5 

3000 i-F j<=lzthenprint"CRVS~aan3 ,, mid$ (z 

j f 1) "CRVS — u i 11 C 1in k s 3"; selseprint 
"-C 1 inks ]"5 
3010 getkeyyï:return 

3099 s 

3100 rem - regelteller - 

3199 s 

3200 rn$ = str$(i) :-Forj=lto4:poke31 07+ j p 
32 s nex t 

3210 Forj = ltolen ( r n $ ) s poke3107+j ,asc (mid$ 
(rn$,j,1)):next:return 
3288 s 

3290 rem — insert — 

3299 s 

3300 z$=left$(z$, j-1)+" "+right$(z$,lz 

- j + 1 ) 

3310 printmid$(z$, i + 1,1)"Clinks]CINSert]" 
e$ " o " ; sreturn 
3388 s 

3390 rem - delete - 

3399 8 

3400 zl$=left$(z$,j“2):zr$="" 

3410 iF j< = lzthenzr$ = rightf(z$,1z-j + 1) 

3420 z$ = zl$ + zr$:prlntd$; s j=j-l:return 


regel 450 
regel 460 
regel 480 
regel 490 
regel 500 
regel 510 
regel 520 
regel 530 
regel 540 
regel 550 
regel 560 
regel 570 
regel 600 
regel 610 
regel 620 
regel 630 
regel 640 
regel 688 
regel 690 
regel 699 
regel 700 
regel 710 
regel 720 
regel 730 
regel 740 

regel 750 
regel 760 
regel 788 
regel 790 
regel 799 
regel 800 
regel 810 
regel 820 
regel 830 
regel 840 
regel 850 
regel 860 
regel 870 
regel 880 
regel 890 
regel 900 
regel 910 
regel 920 
regel 930 
regel 999 
regel 1100 
regel 1199 
regel 1200 
reg el 1210 
regel 1220 
regel 1230 
regel 1288 
regel 1290 
regel 1299 
'■egel 1300 
"egel 1310 
"egel 1320 


*** EINDE LISTING *** 


regel 3000 
regel 3010 
regel 3099 
regel 3100 
regel 3199 
regel 3200 
regel 321 O 
regel 3288 
regel 3290 
regel 3299 
regel 3300 
regel 3310 
regel 3388 
regel 3390 
regel 3399 
regel 3400 
regel 3410 

regel 3420 


210 


teketwerk c 1 6 


regel 4 89 

regel 5 143 

regel 8 142 

regel 9 58 

regel 10 146 

regel 20 211 

regel 30 17 

regel 40 89 


regel 110 
regel 120 
regel 130 
regel 140 
regel 150 
regel 160 
regel 170 
regel 199 


r »ady 


regei 

regel 

JL slV} 

1488 

1 Kt 

58 

regel 

1490 

233 

regel 

1499 

58 

regel 

1500 

106 

regel 

1510 

241 

kregel 

1588 

58 

regel 

1590 

123 

regel 

1599 

58 

r eg e 1 

1700 

137 

regel 

1730 

141 

regel 

1740 

126 

regel 

1750 

39 

regel 

1755 

43 

regel 

1760 

6 

regel 

1770 

203 

regel 

1780 

189 

regel 

1790 

86 

regel 

1800 

227 

r ege 1 

1810 

97 

regel 

1820 

1 16 

regel 

1830 

117 

regel 

1840 

252 

regel 

1850 

151 

regel 

1860 

203 

regel 

1870 

153 

regel 

1888 

58 

regel 

1890 

9 

regel 

1899 

58 

regel 

1900 

182 

regel 

1910 

47 

regel 

1920 

95 

regel 

1930 

133 

regel 

1940 

125 

regel 

1950 

63 

regel 

1960 

198 

regel 

1970 

127 

regel 

1980 

136 

regel 

1990 

156 

regel 

1999 

58 

regel 

2000 

18 

regel 

2099 

58 

regel 

2100 

191 

regel 

2110 

47 

regel 

2120 

123 

regel 

2199 

58 

regel 

2990 

199 

regel 

2999 

58 


regel 

1330 

regel 

1388 

regel 

1390 

regel 

1399 

regel 

1400 

















Een beginnende programmeur wil graag wat hulp bij de eerste eenvoudige opdrach- 
ten, die hij/zij aan de computer geeft. C. Jansen uit Nijmegen schreef het volgende 

artikel om daarbij enigszins behulpzaam te zijn. 


Lijnen in Basic 


O m een programma een professi¬ 
onele aanblik te geven, is het 
vaak nodig om op diverse plaat¬ 
sen in het programma horizon¬ 
tale of vertikale lijnen te kunnen 
maken. Het meest eenvoudige voor¬ 
beeld van een horizontale lijn is de vol¬ 
gende programmaregel. 

10 PRINT ”” 

De lengte van die lijn varieert, afhankelijk 
van de situatie. Er is echter een andere 
oplossing, die veel eleganter is en later 
meer mogelijkheden biedt. Toets nu eens 
het volgende programma in: 

100 PRINT CHR$(147) 

110 FOR 1= 1 TO 26 

120 HL$ = HL$ + CHR$(113) 

130 NEXT I 
140 PRINT HL$ 

In regel 120 staat HL$ voor Horizontale 
Lijn. Elke andere naam voor deze variabele 
is ook goed. Maar HL is de meest duide¬ 
lijke. 

CHR$(113) is het dichte balletje. Na RUN 
wordt door de FOR-NEXT loop regel 120 
26 maal gelezen. Elke keer komt er een 
balletje bij. Aan het einde van de FOR- 
NEXT loop is er een string ontstaan van 26 
balletjes. Deze string wordt door regel 140 
zichtbaar gemaakt. Lezers die als toolkit 
een DUMP kommando hebben, kunnen 
ook zonder regel 140 na een RUN en 
DUMP de string zichtbaar maken. Elk te¬ 
ken van het toetsenbord, waarvan de 
CHR$ op het einde van regel 120 wordt 
ingevuld, kan op het scherm zichtbaar 
worden gemaakt. 

Bovenstaand programma kan men als een 
lijngenerator beschouwen. Met één keer 
inlezen kunt u nu in uw gehele programma, 
steeds van deze lijngenerator gebruik ma¬ 
ken. Overal waar dat nodig is, kunt u door 


het aanroepen van HL$ een horizontale lijn 
trekken. Zonder verdere voorzieningen 
wordt bij het aanroepen van PRINT HL$ 
een horizontale lijn van 26 balletjes lang in 
de linker boven hoek van het scherm zicht¬ 
baar gemaakt. Moet de lijn echter korter 
zijn en op een andere plaats komen te 
staan, dan moet u dat de computer wel 
even zeggen. 

Er zijn drie commando’s, die een deel van 
de string kunnen afsnijden: LEFT$ - MID$ - 
RIGHT$. Hiervan maken wij gebruik om de 
lengte van onze lijn te bepalen. Dit kan 
gebeuren door de tekst van regel 140 te 
veranderen. 

140 PRINT LEFT$(HL$,10) 

Na RUN snijdt de LEFT$ van de HL$ van 
26 balletjes er 10 af. Deze worden zicht¬ 
baar gemaakt, nog steeds links boven aan 
het scherm. Moet de lijn met 10 balletjes 
enige regels lager komen te staan en enke¬ 
le spaties van de linker kant, dan kunnen 
we dat met een POKE en TAB functie 
doen. Het bovenstaande programma 
moet daarvoor met het volgende worden 
aangevuld: 

150 POKE 214,1 0:PRINT:PRINT TAB 
(15)LEFT$(HL$,12) 

160 POKE 214,14:PRINT:PRINT TAB 
(20)LEFT$(HL$,16) 

170 END 

In regel 150 laat POKE 214,10:PRINT de 
cursor 10 regels zakken. PRINT achter 10: 
niet vergeten. Anders blijft de cursor op de 
bovenste regel staan. De TAB funktie 
wordt dan op de bovenste regel afgedrukt. 
PRINT TAB(15) zet de cursor 15 spaties 
van links. LEFT$(HL$,12) snijdt van de 
string van 26 balletjes er 12 af. Regel 160 
heeft dezelfde funktie als regel 150, echter 
met wat andere waarden. Na een RUN van 
dit programma ontstaan er 3 lijnen door 


- o 



regel 140 met een PRINT en door regel 150 
en 160 met een POKE. 

Om de uitwerking van LEFT$ , MID$ en 
RIGHT$ aanschouwelijk te maken, kunnen 
we het volgende programma intoetsen: 

200 REM DEMO 1 
210 PRINT CHR$(147) 

220 FOR I = 1 TO 26 

230 HA$ = HA$ + CHR$(64 + I) 

240 NEXTI 

250 POKE 214, 4:PRINT:PRINT TAB 
(8)HA$ 

260 POKE 214, 8:PRINT:PRINT TAB 
(8)LEFT$(HA$,5) 

270 POKE 214,12:PRINT:PRINT TAB 
(8)MID$(HA$,5,5) 

280 POKE 214,16:PRINT:PRINT TAB 
(8)RIGHT$(HA$,5) 

290 END 

Na een RUN 200 ontstaat door regel 250 
het gehele alfabet. Regel 260 geeft de 
eerste 5 letters van het alfabet. Regel 270 
geeft 5 opeenvolgende letters weer, te 
beginnen bij de 5e letter vanaf de A. Regel 
280 print de laatste 5 letters van het al¬ 
fabet. 

Hokjes 

We gaan nu over tot het maken van hokjes. 
Om te beginnen hebben wij de lijngenera¬ 
tor nodig, waarbij het balletje is vervangen 
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door een lijn. Toets het volgende program¬ 
ma in: 

300 REM DEMO 2 
310 PRINT CHR$(147) 

320 FOR I = 1 TO 20 
330 HL$ = HL$ + CHR$(99) 

340 : 

350 NEXTI 

360 POKE 214,10:PRINT:PRINT TAB 
(5)CHR$(176)LEFT$(HL$,8) 

CHR$(174) 

370 OKE 214,17:PRINT:PRINT TAB 
(5)CHR$(173)LEFT$(HL$,8) 
CHR$(189) 

In regel 360 is: CHR$(176) het linker 
hoekje. 

CHR$(174) het rechter boven hoekje. 

In regel 370 is CHR$(173) het linker onder 
hoekje. 

CHR$(189) het rechter onder hoekje. 

Geef nu een RUN 300 en de horizontale 
lijnen en hoeken staan op het scherm. Er 
ontbreken nog de vertikale lijnen. Om de 
vertikale lijnen te kunnen maken, moet 
deze eerst in de lijngenerator geplaatst 
worden. Daarvoor is de regel 340 gereser¬ 
veerd. Type daarvoor in: 

340 VL$ = VL$ + CHR$(98) + CHR$(157) 
+ CHR$(17) 

CHR$( 98) is de vertikale lijn. 

CHR$(157) is de cursor één plaats naar 
links. 

CHR$( 17) is de cursor één plaats omlaag. 
In het geheugen van de computer bevindt 
zich nu een string VL$ (VL is vertikale lijn) 
een vertikale lijn vormend van 20 regels. 
Hiervan wordt nu een deel afgesneden om 
ons hokje te kunnen maken. Voeg de vol¬ 
gende regels aan het bestaande program¬ 
ma toe: 

380 POKE 214,11 :PRINT:PRINT TAB 
(5)LEFT$(VL$,3*6) 

390 POKE 214,11:PRINT:PRINT TAB 
(14)LEFT$(VL$,3*6) 

In het laatste gedeelte van regel 380 en 
390 ziet U staan 3^6. De 6 geeft het aantal 
regels aan, dat de vertikale lijn hoog is. De 
3 geeft het aantal keren aan, dat er een 
CHR$ voorkomt in regel 340. Zou u die 3 
weglaten, dan wordt de hoogte van de lijn 
6:3=2 regels inplaats van 6. Probeer nu als 
een oefening de waarden 10- 5-8 uit regel 
360 en 17-5-8 uit regel 370 te veranderen. 
Uit regel 380 en 390 moeten dan de 11 -5- 
6-14 eveneens aangepast worden. 

Om een hokje met andere afmetingen te 
maken, kunnen we het beste gebruik ma¬ 
ken van het reeds bestaande hokje. Om 
niet in de war te komen met het reeds 
bestaande programma is het wenselijk om 


een lijn te trekken tussen de twee hokjes 
dus: 

400 REM” = = = = = = = = = = = 

De regels 360 t/m 390 worden gecopieerd. 
Daartoe wordt de cursor omhoog bewo¬ 
gen tot op regel 360, type nu 410 en 
RETURN. De cursor zakt nu vanzelf op 
regel 370 en u typt nu 420, hierna drukt u 
weer op de RETURN toets. Deze procedu¬ 
re herhaalt u ook met de regels 380 en 390. 
Deze worden nu 430 en 440. De konstruk- 
tie van de programma regels staat nu op 
het scherm. Alleen de waarden moeten 
nog veranderd worden. 

Veeg nu het scherm schoon en geef een 
LIST. We veronderstellen dat het nieuwe 
hokje op regel 3 komt te staan, 17 spaties 
van de linker kant begint en 18 spaties lang 
is. Regel 410 wordt dan: 

410 POKE 214,3:PRINT:PRINT:TAB(17) 
CHR$(176)LEFT$(HL$, 18)CHR$(174) 

Omdat de volgende regel van ons hokje op 
regel 7 ligt , wordt regel 420: 


420 POKE 214,7:PRINT:PRINT TAB(17) 
CHR$(173)LEFT$(HL$,18)CHR$(189) 

De linker vertikale lijn begint één regel 
lager en is 3 regels hoog. 

430 POKE 214,4:PRINT:PRINT TAB(17) 
left$(VL$,3^ 3) 

De rechter vertikale lijn ligt 18 spaties 
verder op. Dus: 

440 POKE 214.4:PRINT:PRINT TAB(36) 
LEFT$(VL$,3* 3) 

Ogenschijnlijk lijkt dit ingewikkeld. Maar 
na enige oefening en uitproberen zal het 
best wel meevallen. 

Met bovenstaande techniek kunt u uw 
programma’s zeer zeker opsmukken, die 
daardoor een veel beter en professioneler 
aanzien zullen krijgen. 


C. W. Jansen 
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Joysticks uitlezen op de Plus/4 en C-16 is in Basic niet zo verschrikkelijk moeilijk. In 
machinetaal wordt het echter iets ingewikkelder. Hoe je dit kunt doen, staat in dit artikel 
stap voor stap uitgelegd. / 

Joysticks op de C-16 
en Plus/4 



e joystick bestaat uit vijf schakelaartjes, die aan de ene kant met de 
aarde (gnd) zijn verbonden en aan de andere kant aan de rijen van het 
toetsenbord zijn geknoopt (zie fig.1). Eén schakelaartje is de vuurk- 
nop en de andere vier worden door de ’knuppel’ te bewegen al dan 
niet ingedrukt. Hoe lees je dit nu uit in machinetaal? 


Het antwoord op deze vraag is eigenlijk 
niet eens zo ingewikkeld: je schrijft een 
getal naar de toetsenbordkolommen en 
leest daarna de rijen uit. Dat doe je op de 
volgende manier: 

O Laad het A-register met het getal dat je 
naar de kolommen wilt schrijven, dit is 
voor poort 1 het getal $FR en voor poort 
2 het getal $FD. 

©Schrijf het getal naar de buffer van de 
kolommen, dit bleek na enig gezoek een 
register van de videochip (TED) te zijn, 
namelijk $FF08. 

© Laad de waarde van de rijen in door de 
waarde van $FF08 (ja alweer) in te lezen. 
©Verwerk de waarde van de joystick in de 
rest van je programma, hierover later 
meer. 

Hier is een klein voorbeeldprogrammaatje, 
dat de waarde van de joystick op het 
scherm print: 


.065E LDA# $FA 
.0660 STA $FF08 


.0663 LDX $FF08 
.0666 LDA# $00 


.0668 JSR $A45F 


.066B LDA# $0D 


-066D JSR $FFD2 
.0670 JMP $065E 


;de waarde van poort 
1 in het A-register. 
;stuur de waarde uit 
naar de buffer van de 
kolommen. 

;lees de waarde weer 
in. 

;zet $00 in het A-re¬ 
gister. 

print een getal dat in 
het X- en het A-regis¬ 
ter staat als een deci¬ 
maal getal op het 
scherm (X= 10 byte, 
A= hi byte). 

;zet de ascii waarde 
van carriage return in 
het A-register. 
print de return. 
;spring naar het begin 
van het programma. 


\ 


V 


V 


V 


V 


ooooo ~ 

Fire BitO Bit 3 Bit 2 Bit 1 

vuur: bit 6 (joystick in poort 1) 
bit 7 (joystick in poort 2). 

Als je het programma met ’G065E’ start, 
zie je een hele lijst van getallen op het 
scherm verschijnen, die veranderen als je 
de joystick beweegt. 

De waarde van de joystick, die je dus 
inleest, is als volgt samengesteld: 

bit 0 


bit 2 


bit 3 


bit 1 

Hierbij moet je er wel op letten dat als er 
een schakelaartje op de joystick is inge¬ 
drukt, het betreffende bit een 0 is en geen 
1 ! 

Ook moet je in de gaten houden dat de 
vuurknop van poort 1 en die van poort 2 
niet door hetzelfde bit vertegenwoordigd 
worden. 




Het volgende, wat langere programma 
leest de waarde uit en print op het scherm 
de richting van de stick: 

.1400 LDA# $93 ;chr$(147) in accu. 

.1402 JSR $FFD2 print de chr$(147): 

clear screen. 

.1405 LDA# $01 ;laad de kleur zwart in 

de accu. 

.1407 LDX# $00 ;teller op nul. 

.1409 STA $0800,X ;vul het geheugen met 

zwart. 

.140C STA $0900,X; 

.140F STA $0A00,X 
.1412 STA $0B00,X 
.1415 INX 
.1416 BNE $1409 


dan 


.1418 LDA# $FA 


.141A STA $FF08 

.141D LDA $FF08 
.1420 CMP $20 

.1422 BEQ $1418 
.1424 STA $20 

.1426 LDA# $93 
.1428 JSR $FFD2 
.142B LDA $20 
.142D AND# 


-142F BNE $143E 

.1431 LDX# $00 
.1433 LDA $1300,X 
.1436 JSR $FFD2 
.1439 INX 
.143A CPX# $05 
.143C BCC $1433 
.143E LDA# $0D 


verhoog teller, 
teller < $FFm 
begin lus. 

;begin hoofdpro¬ 
gramma, laad accu 
met code voor poort 
1 . 

;schrijf naar kolom¬ 
men buffer. 

;lees rijen in. 

;zelfde als bij vorige 
scan ? 

;ja, scan opnieuw. 
;nee, zet stick waarde 
in $20. 

;chr$(147) in accu. 
print de chr$(147). 
;haai stick waarde op. 
;vuurknop ingedrukt ? 
($80 voor poort 2). 
;nee, ga dan verder 
naar $143E. 
ja, print dan TIRE’. 


ascii waarde van car¬ 
riage return in accu. 
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.1440 JSR $FFD2 

.1443 LDA $020 
.1445 AND# $01 


.1447 BNE $1456 

.1449 LDX# $00 
.144B LDA $1305,X 
.144E JSR $FFD2 
.1451 INX 
.1452 CPX# $02 
.1454 BCC $144B 
.1456 LDA $020 
.1458 AND# $02 
.145A BNE $1469 

.145C LDX# $00 

.145E LDA $1307,X 
.1461 JSR $FFD2 
.1464 INX 
.1465 CPX# $04 
.1467 BCC $145E- 
.1469 LDA $020 
.146B AND# $04 
.146D BNE $1484 


;print de return 
(chr$(13)). 

;haal stick waarde op. 
;is bitO gezet (schake¬ 
laar dus niet inge¬ 
drukt)? 

;ja, dan verder naar 
$1456. 

;nee, print dan ’UP’. 


;haal stick waarde op. 
;is bitl gezet ? 
ja, dan verder naar 
$1469. 

nee, print dan 
’DOWN’. 


haal stick waarde op. 
is bit2 gezet ? 
ja, dan verder naar 
$1484. 


.146F LDA# $2D 

.1471 JSR $FFD2 
.1474 LDX# $00 
.1476 LDA $130B,X 
.1479 JSR $FFD2 
.147C INX 
.147D CPX# $04 
.147F BCC $1476 
.1481 JMP $1418 


.1484 LDA $20 
.1486 AND# $08 
.1488 BNE $149F 

.148A LDA# $2D 

.148C JSR $FFD2 
.148F LDX# $00 
.1491 LDA $130F,X 


;nee, print een en 
’LEFT’. 


;spring naar het begin 
van het hoofdpro¬ 
gramma. 

;haal stick waarde op. 
;is bit3 gezet ? 

;ja, dan verder naar 
$149F. 

;nee, print dan een 
en ’RIGHT’. 


.1494 JSR $FFD2 
.1497 INX 
.1498 CPX# $05 
.149A BCC $1491 
.149C JMP $1418 


.149F LDA $20 
.14A1 AND# $0F 

.14A3 CMP# $0F 
.14A5 BNE $149C 

.14A7 LDX# $00 

.14A9 LDA $1314,X 
.14AC JSR $FFD2 
.14AF INX 
.14B0 CPX# $07 
.14B2 BCC $14A9 ; 


;spring naar het begin 
van het hoofd pro¬ 
gramma. 

;haal stick waarde op. 
;is er een schakelaar 
ingedrukt? 

■ 

9 

;ja, dan naar begin 
hoofd programma. 
;nee, print ’NOTH- 
ING’. 


.14B4 JMP $1418 ;spring naar begin. 


Vergeet de tekst niet: >1300 46 49 52 45 0D 55 50 44 : RRE.UPD 
>1308 4F 57 4E 4C 45 46 54 52 : OWNLEFTR 
>1310 49 47 48 54 4E 4F 54 48 : IGHTNOTf 
>1318 49 4e 47 00 00 00 00 00 : ING..... 






Huib Maaskant. 



Voor de goedkoopste diskettes in de Benelux 


GRAMMOFOONPLATEN/COMPACTDISC/ 
AUDIO- EN VIDEOCASSETTES/DISKETTES 

De Aarhof 4 

2406 BT Alphen aan den Rijn 
Tel. 01720-75856 
Rabo: 30.16.21.276 


AFHALERS 10% korting. 
Alles inkl. BTW en VRACHT. 


Voor particulieren, hobbyclubs, instellingen en handelaren 


Nashua „white label” 5,25 inch SS/DD 

40-100 stuks 21,95 (per 10 st.) 

110-500 stuks 19,95 (per 10 st.) 


Nashua „white label” 5,25 inch DS/DD 

40-100 stuks 23,95 (per 10 st.) 

110-500 stuks 21,95 (per 10 st.) 

Bespaar 50%, maak van een enkele een dubbele diskette 

met de diskette knipper. Bij ons: ƒ 12,90 


Nashua 5,25 inch SS/DD 

40-100 stuks 29,90 
110-500 stuks 27,90 


R.P.S. „flexette” 5,25 inch DS/DD 

40-100 stuks 33,50 (per 10 st.) 

110-500 stuks 31,00 (per 10 st.) 


Nashua 3,5 inch 1D 

30-100 stuks 75,00 (per 10 st.) 
110-500 stuks 69,00 (per 10 st.) 

Panasonic 3 inch 

30- 50 stuks 137,00 
60-100 stuks 135,00 

Diskette-knipper 12,90 


- 100% ERROR FREE - 
BEL NU 01720-75856 


Voor UTRECHT en omstreken 
„cassette en diskette specialist” 

Ant. Matthaeuslaan 19 • 030-731826. 

„OPUS 4” • Aarhof 4 • 2406 BT ALPHEN AAN DEN RIJN 
Tel. 01720-75856 
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In deze serie artikelen wordt aan de hand van de in de Commodore standaard 
aanwezige computertaal, de MicroSoft Basic versies 2.0/4.0/7.0 door Jan Bodzinga uit 
de doeken gedaan, hoe je als Commodore-gebruiker leuke en handige programma’s 
zelf kunt schrijven en gebruiken. Daarbij wordt voornamelijk aandacht besteed aan de 
basis-opdrachten uit het scala van de Basic-mogelijkheden die Commodore rijk is. De 
serie is zodanig van opzet, dat ook de beginnende Commodore-gebruiker weinig 
moeite zal hebben om aan de hand van deze cursus zoveel kennis op te doen, dat het 
niet moeilijk meer is om zijn eigen ideeën in werkende programma’s om te zetten. De 
behandelde stof gaat uit van de eenvoudigste Commodore-versie, zodat het voor de 
gebruikers geen verschil maakt, of er nu met een C-64, een VIC 20 of zelfs een C-128 of 
Amiga wordt gewerkt. 


Functies en subroutines. 

Basis Basic 


Deel 6 





N adat we in de vorige afleveringen het één en ander hebben geleerd over de 
inmiddels bekende Basic opdrachten en commando’s als RUN, END, REM, 
PRINT, GOTO, READ, DATA IF..THEN en FOR..TO.. NEXT, zullen we onze 
aandacht deze keer met name richten op het gebruik van een paar simpele 
(wis)kundige functies. Die plaatsen het rekenen met de Basic-variabeien in 
een heel ander licht dan we tot nu toe gewoon waren. 


Als voorproefje daarvan zijn we inmiddels 
een beetje vertrouwd geraakt met de 
RND()-functie, waarmee we in les 4 van 
deze cursus met de Commodore allerlei 
willekeurige getallen konden maken en 
verwerken. Een paar andere functies zul¬ 
len we deze keer onder de loep nemen. 

Basic Functies. 

Het zal bij de meesten onder ons wel net zo 
gaan als wat mij meestal overkomt, als ik 
het woord functie hoor noemen. Mijn ge¬ 
dachten gaan dan onmiddelijk terug naar 
de middelbare school waar je tijdens de 
wiskunde-uren bijna met niets anders dan 
functies te maken had. En ik kan niet 
zeggen, dat mijn herinneringen daaraan nu 
de beste uit mijn leven waren. Gelukkig ligt 
dat met de Commodore-Basic functies 
een beetje anders, hoewel ze wel degelijk 
het nodige met algebra van doen hebben. 
Maar het rekenwerk hoef je in dit geval niet 
zelf meer uit te voeren, daar hebben we nu 
de Commodore voor. 


Om de plaats van de functie binnen Com¬ 
modore-Basic duidelijk te maken, zullen 
we eerst moeten weten, wat een functie is, 
en waarin het verschil zit tussen een func¬ 
tie en een commando of opdracht. Zoals 
we weten, zijn commando’s de Basic sleu¬ 
telwoorden, die rechtstreeks of in een Ba- 
sic-programma kunnen worden ingegeven 
en dan door de Commodore worden uitge¬ 
voerd. Voorbeelden hiervan zijn onder an¬ 
dere PRINT, IF..THEN, INPUT, REM en ga 
zo maar door. Kortom, door het intypen 
van een opdracht (of commando) vertellen 
we de Commodore dat hij iets voor ons 
moet doen, dat meestal zelfs zonder een 
variabele kan gebeuren. We spreken direct 
de in de Commodore aanwezige opdracht 
aan om te laten uitvoeren. 

Een voorbeeld 

Om het wat eenvoudiger voor te stellen 
pakken we een klein rekenmachientje, dat 
bij iedereen na de aanschaf van de Com¬ 
modore waarschijnlijk in de kast is beland. 


Op deze calculator - eigenlijk een compu¬ 
ter in zakformaat - zitten slechts een paar 
opdrachten : optellen, aftrekken, verme¬ 
nigvuldigen en delen. Daarnaast beschik¬ 
ken deze apparaatjes vaak over één of 
meer functies, waarmee wat ingewikkelder 
berekeningen kunnen worden gemaakt. 
Een voorbeeld daarvan is de worteltoets 
waarmee de vierkantswortel uit een be¬ 
paald getal kan worden getrokken. Een 
andere functie van de calculator is de 
procenttoets, de logaritmetoets, of de 
kwadraattoets en zo kunnen we doorgaan 
tot en met de toetsen die het getal in de 
display van de calculator omzetten in radi- 
alen, minuten en seconden. Maar nu zitten 
we eigenlijk al weer veel te ver in de stof 
van de middelbare school. Waar het ons 
om gaat is het verschil tussen de functie en 
de opdracht. 

Functies in de Commodore 

Zoals reeds opgemerkt, kunnen we de 
Commodore vergelijken met een bijzonder 
grote rekenmachine, waarbij we naast ge¬ 
tallen ook alfa-karakters kunnen verwer¬ 
ken. Daarnaast zitten er gelukkig nog wel 
wat verschillen tussen beide, maar in ver¬ 
band met de functies werken ze allebei 
gelijk. Wat er namelijk bij komt, als we gaan 
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werken met functies is het zogenaamde 
argument dat een functie nodig heeft om 
uitgevoerd te worden. Bij de rekenmachi¬ 
ne kunnen we zonder bezwaar op één van 
de functietoetsen drukken, maar als er 
geen getal aanwezig is op de display, dan 
gebeurt er weinig als we dat doen. Typen 
we nu bijvoorbeeld 16 als getal en drukken 
daarna op de worteltoets, dan verschijnt 
ineens het getal 4 in het venster. Doen we 
het nog eens over, dan krijgen we een 2 te 
zien terwijl we dit eindeloos kunnen herha¬ 
len, tot we een bijzonder klein getal over¬ 
houden. De calculator trekt in al die geval¬ 
len de vierkantswortel uit het getal wat op 
dat moment in het venster aanwezig is. Dit 
getal nu is het argument, waarmee de 
functie moet werken. 

En daarmee zijn we meteen bij het verschil 
tussen de opdracht en de functie aangeko¬ 
men. Een opdracht heeft niet per sé een 
variabele of getal nodig om zijn werk te 
doen, want ook bij de calculator kunnen 
we eindeloos optellen, als er alleen maar 
een 0 in het venster staat, er gebeurt wel 
degelijk iets, alleen blijft de uitkomst 
steeds nul. Een functie heeft daarnaast 
echter ook een argument nodig om goed 
te 'functioneren’. 

In de Commodore zitten een hele serie van 
dit soort functies ingebouwd. Met een 
gewichtig woord worden ze aangeduid als 
intrinsieke functies, maar dat betekent 
niets anders, dan dat ze standaard aanwe¬ 
zig zijn in het innerlijk van de computer, 
vanaf het moment dat deze wordt aange¬ 
zet. Een ander soort functies zijn de func¬ 
ties die de gebruiker zelf kan definiëren. Dit 
is echter een vrij ingewikkelde materie, 
waarmee we ons pas in een later stadium 
zullen gaan bezig houden. Het is voor nu 
leuk om te weten, dat we zelfs de meest 
ingewikkelde berekeningen met hulp van 
een door ons zelf vervaardigde functie 
door de Commodore kunnen laten uit¬ 
voeren. 

Een functie heeft dus altijd een argument 
nodig om mee te kunnen werken. Dit argu¬ 
ment kan een getal (constante) zijn, of een 
numerieke variabele of, in speciale geval¬ 
len, een karakter. We kunnen bij de Com¬ 
modore zelfs hele berekeningen (expres¬ 
sies) meegeven aan een functie om de 
functie-berekening mee te laten uitvoeren. 
Welk soort argument aan de functie moet 
worden meegegeven is dus helemaal af¬ 
hankelijk van het type functie. Er zijn zelfs 
functies, die in feite geen variabele nodig 
hebben, maar omwille van de eenduidig¬ 
heid in het computer-wezen moet er dan 
toch een argument worden meegestuurd. 
In die gevallen doet de Commodore er 
helemaal niets mee en bewerkt alleen de 
functie. 


Een functie bestaat altijd uit een Basic 
(functie)woord en een een argument, dat 
tussen haakjes wordt gezet. Dit argu¬ 
ment kan bestaan uit: 

-een getal 
-een letter of woord 
-een numerieke variabele 
-een karakter-variabele 
-een berekening van meerdere ge¬ 
tallen/variabelen. 

Een print-functie 

Omdat de functies in de Commodore voor 
het grootste deel te maken hebben met het 
rekenwerk, bestaat het argument van de 
meeste functies ook uit een numerieke 
variabele of een constante, d.w.z. een ge¬ 
tal. We nemen als voorbeeld een heel 
eenvoudige functie onder de loep, die met 
het printen op het scherm te maken heeft, 
de TAB(numeriek argument)-functie. We 
zien direkt, dat het hier niet om een Basic- 
opdracht gaat maar om een functie, omdat 
achter het woord TAB een argument tus¬ 
sen twee haakjes staat. Zonder die haken 
kent de Commodore het woord TAB niet 
eens, en zal daarop reageren met een 
SYNTAX ERROR. Er komt echter nog meer 
bij, want als we simpelweg op de Commo¬ 
dore zouden typen : TAB(IO) dan gebeurt 
er ook niet veel, terwijl de syntax helemaal 
goed is. Deze functie heeft ook nog een 
Basic-opdracht nodig om mee te kunnen 
werken. De opdracht waar het hier om 
gaat is PRINT of PRINT#. 

TAB() wordt gebruikt om een tabulator- 
positie aan de Commodore op te geven, 
waarachter een getal of string moet wor¬ 
den afgedrukt. Als we normaal het com¬ 
mando PRINT gebruiken, dan zal de Com¬ 
modore alles gaan printen vanaf het begin 
van de regel. Door de TAB() functie aan dit 
commando toe te voegen, kunnen we snel 
een veel betere layout verwezenlijken van 
ons printwerk, zowel op het scherm als op 
papier. 

Het volgende Basic-voorbeeld laat het re¬ 
sultaat zien van de TAB()-functie: 

10 REM TABO-FUNCTIE 
20 CLS :REM scherm schoon 
30 PRINT ”COMMODORE-INFO” 

40 PRINT TAB(25)”EEN LEUK BLAD” 

50 T=10 

60 PRINT TAB(T)”WAAR JE VAN KUNT 
LEREN” 

70 PRINT TAB(T+T)”COMMODORE- 
INFO” 

80 PRINT TAB(T*T)”TAB IS HIER ”; T *T 
90 END 

Als we dit programma intypen en runnen, 
dan zien we, dat de te printen karakter- 
strings niet allemaal aan het begin van de 
regel worden gezet. 

Regel 30 doet dit wel, maar daar hebben 


we ook geen TAB() gebruikt. De tekst van 
regel 40 begint precies op positie 25 terwijl 
het argument T dat de waarde 10 heeft 
(regel 50) in regel 60 ervoor zorgt, dat op de 
tiende positie wordt geprint. 

Het gebruik van expressies wordt duidelijk 
in regel 70, waar we twee keer de waarde 
van T meesturen naar de TAB-bewerking 
in de Commodore. De afdruk-positie is 
daarmee 20 geworden. Bij de laatste keer 
dat TAB() is gebruikt zien we dat de tekst 
weliswaar op de twintigste positie is gezet, 
maar wel drie regels lager op het scherm. 
De uitkomst van T ★ T is 100, zodat we 
vanaf het begin van de regel 100 posities 
opschuiven, waardoor bij de scherm- 
breedte van 40 kolommen twee regels 
(=80 posities) wordt verschoven plus 20 
posities op de derde regel. 

De maximale waarde die aan de TAB() 
functie als argument kan woren meegege¬ 
ven is 255, terwijl het minimum uiteraard 0 
is. Helaas kunnen we niet terug tellen met 
de TAB(). We kunnen ook reële getallen 
aan de TAB() meegeven als argument, 
maar daarvan wordt alleen het gedeelte 
voor de komma door de Commodore in de 
berekening van de positie mee genomen. 
Een opdracht als : PRINT TAB(3.9999) zal 
tot gevolg hebben, dat er vanaf de derde 
positie wordt geprint, hoewel het argu¬ 
ment bijna 4 is. 

TAB() 

De TAB()-functie kan zorgen voor leuke 
effecten op het scherm, die heel eenvou¬ 
dig te maken zijn. We doen dit bijvoorbeeld 
door de TAB() in te pakken in een FOR- 
..TO..NEXT lus, waarbij we de waarde van 
de lusvariabele als argument van TAB() 
gebruiken. Door de lussen in het program¬ 
ma steeds opnieuw te laten uitvoeren krij¬ 
gen we een 'eindeloos’ resultaat: 

10 REM BOODSCHAP 

20 A$ = "COMMODORE” 

30 B$ = "COMPUTER” 

40 FOR LUS = 2 TO 31 
50 PRINT TAB(LUS-1)A$ 

60 PRINT TAB(LUS) B$ 

70 PRINT 
80 NEXT LUS 

90 FOR LUS = 31 TO 2 STEP -1 
100 PRINT TAB(LUS-I) A$ 

110 PRINT TAB(LUS) B$ 

120 NEXT LUS 
130 GOTO 40 

Met dit programma wordt ook de kracht 
van de FOR..TO..NEXT loop nog een keer 
duidelijk gemaakt. Als variant op de TAB() 
functie kennen we ook de SPC()-functie, 
die nagenoeg dezelfde werking heeft als 
TAB(). Het verschil tussen beide functies 
is, dat bij gebruik van TAB() bestaande 
tekst op het scherm niet wordt wegge- 
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haald waar de TAB() overheen gaat, terwijl 
deze ruimte bij SPC() wordt opgevuld met 
spaties. 

Deze beide functies, TAB() en SPC() zijn 
hier gebruikt ter illustratie van het functie- 
principe. Bij de latere versies van de Com¬ 
modore zijn er natuurlijk betere manieren 
ontworpen om tekst netjes op het scherm 
te krijgen, precies op de gewenste regel en 
positie. Daarvoor kan in de Amiga, C-16/ 
Plus4 en C-128 b.v. het commando LOCA- 
TE regel, kolom worden gebruikt. Hierbij 
wordt de cursor direkt verplaatst naar de 
opgegeven regel en kolom, vanwaar ver¬ 
volgens kan worden geprint. Denk er wel 
om, dat LOCATE een opdracht is en geen 
functie. Deze opdracht werkt helaas niet 
bij de C-64 en de VIC 20. Daar zullen we 
ons moeten behelpen met SPC() en TAB() 
of de één of andere POKE-truc. 

Integers 

Een andere nuttige functie is het maken 
van integer waarden uit reële getallen. De 
functie wordt in Basic geschreven als: 
INT(argument) waarbij het argument een 
numerieke constante, - variabele, of -ex¬ 
pressie kan zijn. 

De werking van INT() bij de Commodore - 
en alle andere Basic-computers - is, dat 
een getal in alle gevallen wordt gestript van 
de waarde achter de decimale punt. INT() 
pakt altijd het dichtst bijzijnde laagste 
getal van het argument uit de functie. De 
uitkomst van INT(3.4) is 3, INT(10.9) wordt 
10 maar bij negatieve getallen, zoals INT(- 
5.01) wordt het ineens -6, omdat -6 nu 
eenmaal het dichtstbijzijnde lagere hele 
getal is. 

Bij gebruik van de INT() functie wordt er 
vaak gedacht, dat deze is bedoeld om 
getallen te kunnen afronden. Dat is in 
principe niet waar, omdat je nu eenmaal 
niet kunt zeggen dat 12.999999999 afge¬ 
rond op 12 uitkomt en dat is nu juist wat de 
INT() functie wel doet. Bij het ontwikkelen 
van wat betere programma’s zal deze 
functie in Basic zeker worden gebruikt om 
het af ronden tot stand te brengen, maar als 
zelfstandige functie is het beslist niet de 
beste om mee af te ronden. Maar waar 
kunnen we deze INT() dan wel voor ge¬ 
bruiken? 

Nuttige getallen 

Om daar een antwoord op te geven zullen 
we een probleem opzetten. Stel we heb¬ 
ben een hele serie getallen, en willen nu 
bekijken of er soms getallen bij zitten, die 
deelbaar zijn door drie. Zo’n probleem kan 
op verschillende manieren worden opge¬ 
lost. We zouden bijvoorbeeld een hele 
tabel kunnen opnemen in ons programma, 
waarin alle getallen zitten die aan ons 
criterium voldoen. Als de getallen niet te 
groot worden is dit misschien nog wel te 


realiseren, maar het is een heel werk om 
dat allemaal in te typen. Er zijn per slot al 
meer dan 30 getallen beneden de 100, die 
aan onze eis beantwoorden. Deze oplos¬ 
sing is dus niet erg werkbaar. Maar ik geef 
het je te doen om met een betere te 
komen. De INT() functie kan ons daar 
geweldig bij helpen. 

Wat we namelijk kunnen doen, is het getal 
dat we moeten testen delen door 3 en dit 
vergelijken met de INT() functie die we 
loslaten op hetzelfde getal, gedeeld door 
3. 

De uitkomst van 14/3 is 4.666667, terwijl 
de functie INT(14/3) ons een resultaat van 
4 verschaft. 

Als we nu deze 4 vergelijken met 4.666667 
blijken deze twee niet gelijk te zijn. Daar¬ 
aan kunnen we dus de conclusie verbin¬ 
den dat het getal 14 niet deelbaar is door 3 
en dus niet aan onze eis voldoet. Voeren 
we ditzelfde experiment uit met het getal 
311133 dan blijkt dat 311133/3 uitkomst 
op 103711, terwijl INT(311133) ook uit¬ 
komt op 103711. Bij vergelijking van deze 
twee getallen zien we dat ze identiek zijn, 
dus ons uitgangsgetal (311133) is inder¬ 
daad deelbaar door 3 en voldoet daarmee 
aan de door ons gestelde conditie. 

We kunnen er een aardig programma voor 
maken, waarmee we kunnen bepalen of 
een getal deelbaar is of niet door een ander 
in te voeren getal: 

10 REM REKENEN 
20 TEST = 0 : REM TESTGETAL 
30 DEEL = 0 : REM DELER 
40 RES1 = 0 : REM RESULTAAT 1 
50 RES2 = 0 : REM RESULTAAT 2 
60 A$ = ” ” : REM STRING 
100 REM BEGIN PROGRAMMA 
110 CLS 

120 PRINT TAB(10) "GETALLEN 
TESTEN.” 

130 PRINT TAB(5) ” TESTGETAL : 

140 INPUT TEST 

150 IF TEST = 0 THEN GOSUB 400: 
GOTO 130 

160 PRINT TAB(5) ” DEELGETAL : 

170 INPUT DEEL 

180 IF DEEL = 0 THEN GOSUB 400: 
GOTO 160 

190 REM VERGELIJKEN 
200 RES1 = TEST / DEEL 
210 RES2 = INT( TEST / DEEL) 

220 IF RES1 = RES2 THEN A$ = ”WEL” 
230 IF RES1 <5= RES2 THEN A$= 
"NIET” 

240 PRINT TAB(5) "GETAL”; TEST IS 
”;A$; TE DELEN DOOR DEEL” 
250 PRINT TAB(10) "DE UITKOMST 
IS RES1 
260 PRINT 
270 GOTO 130 

280 END ; REM EINDE HOOFDPRO¬ 
GRAMMA 


390 REM= = = = = = = = = = = = 

400 REM SUBROUTINE NUL-INVOER 
410 PRINT 

420 PRINT "NUL MAG NIET WORDEN 
INGEVOERD” 

430 PRINT 

440 RETURN : REM TERUG NAAR 
HOOFDPRG 

450 REM= = = = = = = = = = = = 

Een nogal omvangrijk programma, maar 
wel functioneel. We hebben er twee func¬ 
ties in verwerkt, de TAB() en de INTQ, 
terwijl er ook een opdracht in zit die we nog 
niet kennen, de GOSUB.. RETURN. Laten 
we eens bekijken wat er precies gebeurt in 
deze listing. In de eerste regels - de kop- 
verklaren we waarvoor de variabelen in het 
programma worden gebruikt. Zo zien we 
dat de numerieken TEST en DEEL respec¬ 
tievelijk worden toegekend aan het in te 
voeren getal wat moet worden getest, en 
het deel-getal waarmee de test zal worden 
uitgevoerd. Verder hebben we twee resul- 
taat-variabelen, RES1 & RES2, geïnitiali- 
seerd, die gebruikt worden om de uitkomst 
van de beide tests te kunnen onthouden. 
Als laatste vinden we nog de string-varia- 
bele A$. We zien dat deze variabele moet 
worden gebruikt voor alfa-karakters, om¬ 
dat de naam wordt beëindigd met een $. 
Daarmee wordt aangeduid dat het een 
string-variabele is. De taak van deze A$ is 
niet zo groot in dit programma, maar wel 
nuttig, omdat deze een bepaald woord 
krijgt toegewezen, al naar gelang de test 
uitvalt. 

Nadat bij het begin van het programma, 
vanaf regel 100, het scherm met CLS is 
schoongemaakt, en de programma-titel 
met hulp van PRINT en de TAB() op het 
scherm is gezet, wordt de invoer van het 
getal TEST gevraagd in de regels 130 en 
140. Deze invoer zou ook in één regel 
kunnen staan, gescheiden door de : en 
zelfs in één statement: INPUT ” TEST¬ 
GETAL : ”; TEST. In het laatste geval 
kunnen we de TAB()-functie echter niet 
meer gebruiken, omdat de INPUT op¬ 
dracht uitsluitend een constante string kan 
verwerken. Ook een opdracht als INPUT 
TEKST$ ; TEST zal niet goed door de 
Commodore worden geïnterpreteerd. 
Omdat we in dit programma de TAB() 
gebruiken bestaat de invoer van de getal¬ 
len uit twee opdrachten. Nadat er een getal 
is ingetypt en door het intoetsen van de 
RETURN-toets is toegewezen aan de vari¬ 
abele TEST wordt er in regel 150 door het 
programma bekeken of er misschien als 
waarde 0 (nul) is ingetoetst. In deze listing 
wordt ervan uitgegaan dat het verboden is 
om een nul in te geven, zowel als testgetal 
als deelgetal, hoewel het alleen bij het 
deelgetal werkelijk fout gaat met het pro¬ 
gramma als er een nul wordt ingegeven. 
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De manier waarop deze test verder wordt 
verwerkt, bij het invoeren van een nul, 
bepaalt het vervolg van regel 150. 

GOSUB .. RETURN 

In het programma REKENEN zien we twee 
keer de opdracht GOSUB400 staan. Deze 
opdracht kan eigenlijk niet zelfstandig 
worden gegeven, hij moet altijd worden 
gevolgd door een RETURN die het einde 
van de GOSUB-bewerking aangeeft, net 
als de RETURN-toets het einde betekent 
van een invoer vanaf het toetsenbord. 
Wat gebeurt er precies bij de uitvoer van 
GOSUB in de Commodore? Om dat te 
bekijken kunnen we het beste simuleren, 
dat we een nul ingeven bij de vraag naar 
het testgetal. In regel 140 wordt deze 
waarde toegekend aan de variabele met 
de naam TEST, die in dit geval dus nul 
gebleven is. Regel 150 bekijkt de waarde 
van TEST met IF TEST = 0 THEN GOSUB 
400. Omdat TEST gelijk is aan 0 wordt het 
volgende commando op deze regel uitge¬ 
voerd. Dat is de bewuste GOSUB. Bij deze 
opdracht wordt er eigenlijk aan de Com¬ 
modore doorgegeven, dat er uit het hoofd¬ 
programma naar een bij-programma moet 
worden gesprongen. Dit soort bij-pro- 
grammaatje noemen we meestal subrouti- 
nes. Deze routines zijn op zichzelf kleine 
stukjes Basic-tekst die een gedeelte van 
een programma, met een bepaalde taak 
.uitvoeren. Het regelnummer (400) duidt 
het begin aan van de subroutine. Tot zover 
is GOSUB in feite identiek aan de bekende 
GOTO-instruktie. Het verschil tussen bei¬ 
de opdrachten is, dat bij GOTO onvoor¬ 
waardelijk naar een andere dan de logisch 
volgende regel in het programma wordt 
gesprongen, terwijl de Commodore bij het 
uitvoeren van de GOSUB-instruktie netjes 
onthoudt bij welke regel hij uit het hoofd¬ 
programma is vertrokken, om daarheen, 
na het uitvoeren van het sub-programma 
weer te kunnen terugkeren. 

Subroutines 

Vanaf regel 150 wordt - als TEST = 0 - 
gesprongen naar regel 400. Daar begint de 
subroutine. Als eerste wordt dus regel 410 
uitgevoerd, door een PRINT'' op het 
scherm. Daarna wordt in regel 420 de tekst 
”NUL MAG NIET WORDEN INGEVOERD” 
op het scherm gezet. Na het verwerken 
van regel 430 komt de Commodore op 
regel 440 de opdracht RETURN tegen. 
Gelukkig zit er ergens in het geheugen van 
de Commodore nog het regelnummer van 
de laatste GOSUB, zodat bekend is, naar 
welke regel moet worden teruggekeerd. 
RETURN betekent GA TERUG. Dat wordt 
dan ook netjes uitgevoerd, en het pro¬ 
gramma vervolgt met de laatste opdracht 
uit regel 150, waar staat: GOTO 130. Op 
deze manier hebben we dus met hulp van 


een subroutine de foutafhandeling ver¬ 
werkt, als er een 0 als invoer wordt gege¬ 
ven. Zou de Commodore echter zonder 
het eerst uitvoeren van een GOSUB bij 
regel 440 aanlanden, dan volgt de melding 
RETURN WITHOUT GOSUB ERROR IN 
440, omdat er geen regelnummer bekend 
is om naar terug te keren. Je kunt dit héél 
gemakkelijk zelf testen door het program¬ 
ma te starten met RUN 400. Je krijgt dan 
wel de tekst van regel 420 op het scherm, 
maar daarna volgt de foutmelding, en gaat 
het programma zeker niet verder. 

Bij het programmeren in Basic is het vaak 
nodig om een bepaald gedeelte van een 
programma meerdere keren, vanaf ver¬ 
schillende plaatsen in het hoofdprogram¬ 
ma te kunnen uitvoeren. Daarvoor hebben 
we de beschikking over subroutines. Deze 
kunnen op een aparte plaats in het pro¬ 
gramma worden opgenomen. Die plek is 
meestal niet de plaats waar ze nodig zijn, 
maar bevindt zich vaak aan het einde, of 
juist aan het begin van een lange listing. De 
opdracht GOSUB is ervoor om de subrou¬ 
tine zovaak uit te voeren, als je maar wilt. 
Zodra de Commodore een GOSUB ont¬ 
moet, wordt de kontrole van de program- 
ma-flow overgebracht naar het regelnum¬ 
mer achter de GOSUB, die daarmee auto¬ 
matisch het begin van de subroutine aan¬ 
duidt. Het programma gaat vandaar verder 
totdat de opdracht RETURN wordt gevon¬ 
den. Daarmee wordt teruggesprongen 
naar de plaats in het hoofdprogramma, 
direkt achter het GOSUB-statement. 

Het is zelfs mogelijk om vanuit de ene 
subroutine weer een andere aan te roepen 
en zo verder. Denk er daarbij wel om, dat 
het geheugen van de Commodore niet vol 
loopt, want iedere GOSUB betekent dat er 
een regelnummer moet worden opgesla¬ 
gen in het geheugen van de computer. 
Deze terugkeer-adressen worden intern 
bewaard op een STACK, dat een lijst van 
adressen (regelnummers) bevat naast al¬ 
lerlei andere dingen, zoals de naam van de 
FOR..TO..NEXT variabelen, tellers en der¬ 
gelijke. 

10 REM GENESTE SUBROUTINE 
20 REM DIT GAAT FOUT 
30 A= 10 
40 GOSUB 100 
90 REM SUBROUTINE 
100 A=A+1 
110 PRINT A; 

120 GOSUB 100 

130 RETURN .REM WORDT NOOIT BE¬ 
REIKT 

Bekijk bovenstaand programma, en run 
het op je computer. Na verloop van tijd zul 
je merken, dat het (stack)geheugen hele¬ 
maal vol zit met alle terugkeer-adressen, 
terwijl er nooit een RETURN kan worden 


uitgevoerd, omdat in regel 120 steeds 
weer naar een nieuwe, - dezelfde - subrou¬ 
tine wordt verwezen. 

Dit voorbeeld geeft duidelijk aan, dat je wel 
voorzichtig moet zijn met het gebruik van 
GOSUB..RETURN. 

Het kan ook fout 

Waar moet je nu precies op letten, bij het 
gebruiken van de GOSUB opdracht? Aller¬ 
eerst natuurlijk op het regelnummer, waar 
de GOSUB naar toe wijst. Dit moet, net als 
bij GOTO uiteraard een bestaand regel¬ 
nummer zijn. Het is ook niet mogelijk om in 
plaats van een regelnummer een nume¬ 
rieke variabele of berekening in de listing te 
zetten: GOSUB 2 * 200 is heel iets anders 
dan GOSUB 400 en gaat dan ook absoluut 
fout. 

Het is beter, hoewel niet noodzakelijk, dat 
de GOSUB regel verwijst naar de eerste 
regel van de subroutine, die niet met een 
REM begint. Dit geeft een beter beeld van 
de listing, en als je vanwege ruimtegebrek 
alle REM-regels gaat verwijderen blijft de 
subroutine netjes in het programma aan¬ 
wezig. In ons programma REKENEN heb¬ 
ben we deze regel voor de duidelijkheid 
maar overtreden. 

Het is mogelijk om met meerdere RE- 
TURN-opdrachten uit dezelfde subroutine 
terug te keren naar de vorige GOSUB, 
maar het laat tegelijk zien, dat je van pro- 
gramma-strukturen nog weinig hebt be¬ 
grepen. Bij het debuggen van dit soort 
’spaghetti-listings’ is dit één van de meest 
voorkomede gebreken, die echter niet di¬ 
rekt fataal zijn. 

Denk erom, dat aan het einde van het 
hoofdprogramma niet per ongeluk ook 
nog de eerste subroutine wordt uitgevoerd 
door de Commodore. Zet daarom altijd 
een END aan het slot van dit programma- 
gedeelte. 

Rekenen 

We gaan weer verder met ons reken-pro- 
gramma, waar we via de GOSUB naar de 
omweg van de subroutines, terug zijn bij 
regel 130 waar opnieuw een getal wordt 
gevraagd om te testen op zijn deelbaar¬ 
heid. We typen een willekeurig getal, als 
het maar geen 0 is. Regel 150 wordt dan 
als het ware overgeslagen en we komen bij 
regel 160/170 waar de invoer van het 
DEELGETAL wordt gevraagd. Ook hier 
geven we weer een waarde in, die kleiner 
moet zijn dan de waarde van TEST, anders 
is het onmogelijk om TEST te kunnen 
delen. Hier wordt ook weer getest op het al 
of niet 0 zijn van deze variabele. En hier is 
de test zeker nuttig. Allereerst zien we, dat 
na de test IF DEEL = 0 wordt verwezen 
naar dezelfde subroutine als we in regel 
140 tegen kwamen. Een bewijs van het 
ruimte en tijdbesparende karakter van 
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subroutines. Bovendien kunnen we op de¬ 
ze manier makkelijker wijzigingen in ons 
programma aanbrengen. 

Het nut van deze test blijkt maar al te 
duidelijk, want de Commodore wil perti¬ 
nent niet dat er een deling wordt uitge¬ 
voerd met een variabele die de waarde 0 
heeft, net als de wiskundeleraar overigens. 
Die man werd kwaad, de Commodore 
houdt ermee op, na de melding DIVISION 
BY ZERO ERROR IN 200. Vandaar de test 
op de invoer van niks. 

Vergelijken met INT() 

In de regels 190 tot 230 komen we bij de 
kern van dit programma. Als eerste bere¬ 
kenen we daar de uitkomst van de deling 
TEST/ DEEL Het resultaat wordt als fracti- 
oneel getal in variabele RES1 gestopt. 
Daarna voeren we dezelfde deling nog¬ 
maals uit, maar dan met hulp van de func¬ 
tie INT(). Zijn deze twee variabelen, RES1 
en RES2 nu gelijkwaardig, dan betekent 
dat, dat het getal TEST inderdaad deelbaar 
is door de waarde van DEEL. Zoniet, dan 
blijkt dat natuurlijk ook uit de regels 220/ 
230. We hebben deze test IF RES1 = 


RES2 uitgevoerd, met hulp van een twee¬ 
de IF..THEN opdracht (regel 230). Voor de 
Commodores die werken met een Basic 
versie 4.5 en hoger kan deze regel worden 
vervangen door ELSE A$ = ”NIET. Een 
nieuwe toevoeging aan het IF..THEN com¬ 
mando. Het woord ELSE is hier in de 
plaats van een tweede IF..THEN opdracht 
gekomen. Wat er gebeurt, is dat er wordt 
gekeken of RES1 gelijk is aan RES2, is dit 
zo dan is A$ = ”WEL”, ELSE (anders) 
-regel 230- A$ = ”NIET”. Op grond van de 
uitkomst RES1 = RES2 krijgt A$ de waarde 
WEL/NIET. We kunnen AS beschouwen 
als een vlag, die wel/niet wordt ’gezet’ op 
grond van de uitkomst van de test. Deze 
tekst-vlag kunnen we meteen printen in 
regel 240, die gelijk is, zowel voor niet en 
wel deelbare getallen. Bekijk en test dit 
programma-deel maar eens op je gemak, 
want hier zijn wat kleine truukjes uitge¬ 
haald, waarmee het programmeren een 
stuk handiger kan verlopen. Denk wel om 
het verschil bij de diverse Commodore- 
computers. Ook bij de nieuwere types is 
het natuurlijk mogelijk de test met twee 
IF..THEN opdrachten uit te voeren. 


Tenslotte 

Helaas blijken de pagina’s die voor deze 
cursus zijn gereserveerd al weer te kort te 
schieten in ruimte, want de Commodore 
kent meer dan 30 verschillende functies, 
waarvan we tot nu toe slechts drie hebben 
behandeld. De volgende keer zullen we 
verder gaan op het gebied van deze inte¬ 
ressante, misschien niet altijd even flitsen¬ 
de stof, maar echt nodig om straks meer te 
kunnen gaan doen met allerhande leuke 
scherm- en geluidsprogramma’s, omdat 
het begrijpen van de manier waarop de 
Commodore met getallen en variabelen 
omspringt nu eenmaal onontbeerlijk is 
voor het beheersen van de programmeer¬ 
taal. Bovendien krijg je met deze kennis 
een goede basis om straks wellicht ook in 
andere (hogere) talen goed uit de voeten te 
kunnen. 

Mocht je intussen vragen of opmerkingen 
hebben over het programmeren op de 
Commodore, aarzel dan niet, maar stuur 
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Het alternatief 
voor Printshop van 
Broderbund is 
Newsroom, dat 
vergelijkbare 

mogelijkheden biedt, 
maar iets meer is 
afgestemd op b.v. 
het maken van 

schoolkranten en 
dergelijke. 



Sample Picture Menu from The Newsroom™ 
from Springboard Software 


The Newsroom 


T oen het Amerikaanse soft¬ 
warehuis Springboard in 1984 het 
desktop publishing-programma 
Newsroom op de markt bracht 
kon zij nauwelijks vermoeden 
welk succes dit pakket op scholen, bij 
hobbyisten en bij zakelijke gebruikers 
zou hebben. Net als Broderbund’s 
Printshop is The Newsroom bedoeld 
om thuis met behulp van een C64 of 
Cl28 computer geïllustreerde kranten, 
folders, nieuwsbrieven en reklarnebul- 
letins te kunnen onwerpen en op de 
eigen printer af te drukken. Momenteel 
is de Newsroom een grote softwarehit 
in de VS en staat zelfs bovenaan de lijst 
van de best verkochte schoolpro¬ 
gramma’s. 

Het softwarehuis Springboard w f erd in 
1982 opgericht door de voormalige leraar 
John Paulson. Paulson herkende tijdig de 
groeiende behoefte aan kwalitatief goede 
educatieve software. Een van zijn eerste 
programma’s, Early Games for Young 
Children, werd direkt een grote topper en 
stond zelfs 99 weken op de Softsel Hot List 
in Amerika. Het flexibele desktop publis- 
hing pakket Newsroom lijkt dit succes te 
gaan evenaren. 

Newsroom stelt de gebruiker in staat om 


krantenkoppen, bannieren en vijf verschil¬ 
lende letterfronts (=schriftstijlen) met illus¬ 
traties te kombineren. Deze illustraties 
kiest de thuisuitgever uit de 600 graphics 
bevattende art-bibliotheek van Newsroom 
of een van de aanvullende disks. Kortom, 
rustig achter het bureau gezeten ligt de 
gehele lay out aan de voeten van uw PC- 
scherm. 

Andere sterke punten van de Newsroom 
zijn: 

m- Krachtige writing en editing tools. Er zijn 
komplete word processing- en layout faci¬ 
liteiten. De tekst rangschikt zich na het 
verplaatsen van de illustraties automatisch 
opnieuw! 

m- Uitgebreide drawing-opties zoals het 
verplaatsen van graphics van links naar 
rechts e.o., het automatisch tekenen van 
lijnen en figuren (vierkanten en cirkels), 
diverse fill patronen, verschillende teken¬ 
pennen, vergrootglasoptie voor nauwkeu¬ 
rig editen en de ”OOPS” voor het korrige- 
ren van de gemaakte fouten. 

Pr Het programma werkt met vrijwel elke 
gangbare (grafische) printer. 

■r Newsroom maakt het mogelijk om tekst 
en illustraties per modem tussen de totaal 
verschillende Commodore 64/128-, IBM 
PC-, en Apple machines uit te wisselen. 


■vEen uitgebreide handleiding & idëen- 
boek. 

■•-Een nog steeds groeiende serie van 
graphic backup- software voor tal van 
toepassingen in de kranten-, nieuwsbrief- 
en reklamewereld. 

Inmiddels zijn al de volgende aanvullingen 
beschikbaar: 

De Clip Art collection volume 1 en 2. 
Volume 1 biedt de keuze uit 600 algemene 
illustraties zoals dieren, sporten, huizen, 
mensen, bloemen, kantoor, gebruiksvoor¬ 
werpen en muziek. Volume 2 bestaat uit 
een collectie van ruim 800 zakelijke, medi¬ 
sche, fotografische, audio, computer, 
boekhoud en geld graphics. 

Springboard heeft de gebruikers van het 
concurrerende Print Shop van Broder¬ 
bund niet vergeten. Het aanvullende pak¬ 
ket Graphics Expander biedt de Print 
Shop 300 extra illustraties plus de teken¬ 
en editing tools van Newsroom. Boven¬ 
dien is het mogelijk om met bijvoorbeeld 
de Koala Pad of een digitizer gemaakte 
graphics in de Print Shop te gebruiken en 
te Saven. 

De Newsroom draait op alle C64/C128- 
machines met een grafisch compatibele 
printer en kost ongeveer ƒ45,-. 
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Het kraken van programma’s is een niet erg fraaie, maar programmeertechnisch wel 
zeer interessante bezigheid. Het scherpt de geest en je doet er vaak nieuwe 
programmeer-technieken bij op. Daarom met enige aarzeling toch dit onderwerp. Als 
voorbeeld nemen we de gouwe ouwe "Ghostbusters”, welk programma we in vier 
stappen de computer binnen zullen halen. 


Programmeren 
in machinetaal 

door Sjoerd Bakker 

Aflevermgj 

GHOSTBUSTERS” onder het mes 


K raken is illegaal, wanneer je 
daarna kopieën van het pro¬ 
gramma maakt en die aan ande¬ 
ren geeft of nog erger, voor geld 
verkoopt. Voordat we beginnen 
willen wij van Commodore Info je er 
nadrukkelijk op wijzen dat het verko¬ 
pen en zelfs het weggeven van ge¬ 
kraakte programma's strafbaar is en 
uiteindelijk niet in het belang van ge¬ 
bruiker noch softwarehuis. Je steelt 
hiermee anderman’s geestesproduk- 
ten, die vaak na weken of maanden van 
moeizaam brainstormen tot stand zijn 
gekomen. Niet doen dus. 

Het kraken van programma’s op zich is 
echter natuurlijk zo legaal als het maar zijn 
kan. Het komt er gewoon op neer dat je 
kijkt hoe een programma in elkaar zit. Dat 
is de beste manier om dan zelf betere 
programma’s te kunnen maken en we den¬ 
ken, dat vrijwel iedere programmeur het 
wel eens doet. Zelf ben ik met kraken 
begonnen toen ik na lang sparen een disk¬ 
drive had aangeschaft en ik me realiseer¬ 
de dat ik de helft van mijn cassette-$oft- 
ware niet zonder meer naar disk kon sa¬ 
ven. De problemen werden veroorzaakt 
door zelfstallende programma’s, die de 
computer na het laden ”op slot deden”. 
Ook run-stop/restore en resetten hielp 
niet. Je komt dan alleen nog maar uit het 
programma door de computer uit te zet¬ 
ten, en dan ben je uiteraard je programma 
kwijt. 

Overzetten op disk 

Een van de eerste programma’s die ik 
kraakte (=het programma zodanig bewer¬ 
ken datje het volgens de computerroutines 
naar disk of cassette kunt saven) was 
"Ghostbusters”. In dit artikel neem ik het 
als voorbeeld omdat het zo’n heldere, mo¬ 
dulaire turbo-laadroutine heeft. Snellaad- 
routines kom je trouwens bijna altijd tegen 
in auto-start programma’s. 

Zoals we zullen zien is kraken een kwestie 


van anti-kraak routines omzeilen en voor 
de rest het programma zo veel mogelijk 
zelf het werk te laten doen. Verder moet je 
er veel geduld en incasseringsvermogen 
voor hebben. ”Ghosbusters” is een relatief 
makkelijk te kraken programma. Er zijn 
programma’s die nog wat makkelijker 


ting systeem voor het saven en laden van 
zowel Basic- als machinetaal-program- 
ma’s. Er zijn echter geen voorzieningen 
voor het zelfstartend maken van een pro¬ 
gramma. Basic-programma’s kun je met 
shift/run-stop wel meteen na het laden 
laten starten, maar dat is natuurlijk geen 


gaan, maar er bestaan er ook die veel 
moeilijker zijn. Persoonlijk ben ik echter tot 
op de dag van vandaag nog nooit een 
programma op cassette of disk tegenge¬ 
komen dat na het investeren van veel tijd 
en moeite niet te kraken blijkt. 

Header en buffer 

Zoals bekend is de Commodore 64 voor¬ 
zien van standaard-routines in het opera- 


beveiliging. Na een gewone load kun je het 
programma namelijk zonder problemen 
saven. Er moet dus nog een andere manier 
zijn. Om te kunnen begrijpen welke moge¬ 
lijkheden er voor het zefstartend laden zijn, 
moeten we echter eerst weten hoe een 
programma normaal gesproken wordt ge¬ 
saved. 

Elk Basic- of machinetaalprogramma 
wordt naar cassette in twee gedeelten 











gesaved. Deze gedeelten worden meestal 
blokken genoemd. Het eerste blok is de 
z.g. ”header” en het tweede blok bevat 
het eigenlijke programma. Het header- 
blok blok wordt van en naar cassette ge¬ 
transporteerd via de cassette-buffer. De 
cassette-buffer is een stukje.geheugen in 
de computer dat uit $C0 (=192) bytes 
bestaat. Het begin van de buffer wordt 
aangegeven met de pointer op $B2/$B3. 
Hij kan zich dus overal in het geheugen 
bevinden, maar niet onder lokatie $0200 
(dus niet in zero-page of in de stack). 
Vrijwel altijd begint de buffer echter op 
$033C, het standaard-adres, en loopt hij 
dus door t/m ($033C+$0C-1 =) $03FB. 
De cassette-buffer bevat na het laden of 
voor het saven van de header belangrijke 
informatie over het programma-blok. 
Vooral de eerste vijf bytes van de header 
hebben een essentiele betekenis. We zul¬ 
len ze even een voor een doornemen. 
Geheugenplaats $033C specificeert met 
welke soort file we te maken hebben. De 
waarde $01 heeft betrekking op een Basic- 
programma, en de waarde $03 op een 
machinetaal-programma. Een $01 -file 
krijg je in Basic na SAVE ”X”, en een $03- 
file na SAVE ”X”,1,1. Bij het laden wordt 
een $01-file zonder meer in de Basic- 
programmaruimte gezet, tenzij je laadt met 
LOAD ”X”,1,1. In dat geval kijkt het opera- 
ting sytem naar de volgende twee bytes in 
de cassette-buffer om te bepalen waar het 
programma-blok in het geheugen moet 
worden gezet. Bij een $03-file doet de 
laadopdracht niet terzake en wordt er altijd 
volgens deze laatste procedure gewerkt. 
Die volgende twee bytes, $033D en $033E, 
bevatten respektievelijk de Lo- en de Hi- 
byte van het adres vanaf waar het pro¬ 
gramma in het geheugen wordt geladen. 
De daarop volgende twee bytes bevatten 
het eindadres+1 van het programma. 

De volgende 187 bytes bevatten de naam 
van het programma, aangevuld met spa¬ 
ties. In plaats van die spaties kom je bij 
auto-start programma’s ook vaak een ge¬ 
deelte van de eigen laadroutine tegen. Tot 
zover het header-blok c.q. de cassettebuf- 
fer. Zoals gezegd volgt op het header-blok 
normaal gesproken het programma-blok. 
Maar bij ”Ghostbusters” is dat niet het 
geval. In plaats daarvan onderbreekt men 
op speciale wijze de laadroutine van het 
o.s., en begint dan met het laden van de 
eigen turbo-loader. Op onze beurt zullen 
wij nu het ”Ghostbusters”-laadprogramma 
onderbreken en zodoende zullen we uit¬ 
eindelijk in staat zijn om het "kale” pro¬ 
gramma op normale wijze te saven naar 
disk of cassette. We wijzen er echter nog¬ 
maals op dat het verspreiden van gekraak¬ 
te kopieën, al dan niet met geldelijk gewin, 
strafbaar is. Dan gaan we nu over tot het 
kraken van "Ghostbusters”. Als gereed¬ 


schap heb ik Jim Butterfield’s onvolprezen 
Super-mon monitor-programma gebruikt. 
Het stond vanaf $C000 in het geheugen. 
Andere monitoren vanaf $C000 zullen ze¬ 
ker ook voldoen, maar wel is het gewenst 
dat de ruimte $CE00-$CFFF vrij is. In het 
kraken van "Ghostbusters” kunnen we vier 
stappen onderscheiden. 

Stap 1 

Laad het monitor-programma in het ge¬ 
heugen en start het. Toets dan ”L” (LOAD) 
in en druk op return. Doe vervolgens de 
cassette in de recorder en druk op play. Nu 
is het even goed opletten, want als de 
naam van het programma zich meldt moet 
het laden worden onderbroken. Na enige 
tijd zien we FOUND ”MAIN”. We moeten 
dan op run-stop drukken. Als het goed is 
springen we nu weer terug naar de moni¬ 
tor. 

Na deze mysterieuze handelingen staat 
het header-blok in de cassette-buffer van 
de computer. De volgende stappen in het 
kraken kunnen nog wel eens van program¬ 
ma tot programma verschillen, maar de 
eerste stap heeft altijd het gewenste effekt, 
bij elk programma. Het is net als met 
voetballen: elke wedstrijd begint met de 
aftrap; wat er daarna gebeurt is steeds 
weer verschillend. De kraker heeft echter 
het voordeel dat hij altijd degene is die 
aftrapt en dat hij veel intelligenter is dan 
zijn tegenstander. 

Laten we eens kijken wat er nu in de 
cassette-buffer staat. Dat doen we door de 
opdracht M 033C 03FB in te toetsen. Als 
het scherm dan teveel doorscrollt, kun je 
de waarde 03FB ook door een lagere 
vervangen. In dit geval zijn alleen de eerste 
vijf bytes van belang. 
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Lokatie $033C bevat zoals verwacht de 
waarde $03, ten teken dat we niet naar de 
standaard Basic-programmaruimte gaan 
laden. Welk gebied het wel gaat worden 
zien we aan de volgende vier bytes. De 
inhouden van $033D en $033E vormen 
samen het adres $0316, en de inhouden 


van $033F en $0340 het adres $0415. Het 
volgende blok wordt dus geladen naar 
vanaf $0316 en het eidadres+1 van dit 
blok is $0415. Als we het laden niet hadden 
onderbroken zou dus het gebied $0316- 
$0414 met het volgende blok zijn gevuld. 
Dat zou niet zo mooi zijn geweest, want 
dan was het programma inderdaad uit 
zichzelf gestart en hadden we het zonder 
de Powercartridge (slap hoor, zo’n domme 
kraakknop!) niet meer kunnen kraken. Wat 
is er namelijk aan de hand? De geheugen¬ 
ruimte vanaf $0316 wordt gebruikt voor 
het onderbrengen van vektoren voor de 
Kernal-routines. Een van die vektoren is 
CHROUT op $0326/27. CHROUT wordt 
voor de uitvoer van karakters aangeroe¬ 
pen door het o.s. Vanaf $FFD2 wordt dan 
een indirekte sprong gemaakt via $0326/ 
27. 

Vectoren 

Maar deze vektor kun je natuurlijk ook 
ergens anders naar laten wijzen. Dat ge¬ 
beurt, zoals we zullen zien, bij de laadrouti¬ 
ne van ”Ghostbusters”. Alle vektoren wor¬ 
den opnieuw ingevuld, waarbij de meeste 
trouwens gewoon blijven zoals ze waren. 
Na het laden van dit tweede blok denkt het 
o.s. dat het hele programma in het geheu¬ 
gen zit. Dan zou er dus "READY.” moeten 
volgen met een knipperende cursor. De 
uitvoer van deze tekst gaat echter natuur¬ 
lijk via CHROUT, waarvan de vektor is 
gewijzigd. Deze zal nu wijzen naar het 
begin van de eigen laadroutine. Hiermee is 
de auto-start eigenlijk al een feit gewor¬ 
den. 

We kunnen dus zeggen dat het zelfstarten 
in het algemeen wordt veroorzaakt door 
het programma-blok te laden naar het 
vektor-gebied. Een van die vektoren wijst 
dan naar een meegeladen laadroutine ver¬ 
derop in het blok. Behalve CHROUT ko¬ 
men ook de ”Print Basic Message vektor” 
op $0300/01 en de "Basic Warm-start 
vektor” op $0302/03 voor verandering in 
aanmerking. Op de terugtocht naar de 
READY.-mode komt het o.s. ze beide te¬ 
gen. Ook wordt er wel geladen naar de 
stack. ”Easy Script” is wat dat betref een 
bekend voorbeeld. Op deze methode zul¬ 
len we echter niet verder in gaan. 

Stap 2 

Om de laadroutine te kunnen volgen zullen 
we dus moeten zorgen dat het program¬ 
ma-blok niet naar het vektor-gebied wordt 
geladen. We gaan daarom het begin- en 
het eindadres in de buffer veranderen zo¬ 
dat het blok in een "onschuldig” stuk ge¬ 
heugen komt te staan. We veranderen 
daarom byte $033E van $03 in $93 en byte 
$0340 van $04 in $94. Het tweede blok 
wordt daardoor niet geladen naar gebied 
$0316-$0414 maar naar $9316-$9414. Dat 
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veranderen kun je gewoon doen door over 
de nullen van de betreffende nybbles ne¬ 
gens te typen en op return te drukken. 
We moeten nu de laadroutine weer vervol¬ 
gen op het punt waar we hem hadden 
onderbroken. Hiervoor moeten we eerst 
het C-bit van de processor 1 maken. Dat 
kunnen we doen door de opdracht ”R” in 
te typen en de Lo-nybble van het status- 
register (SR) 1 te maken. Het Carry-bit is 
namelijk bit 0 van het status-register. Ver¬ 
volgens typen we G F56C in en drukken we 
op return. Het tweede blok wordt nu in het 
geheugen geladen. Omdat de laadroutine 
met een RTS eindigt springt Super-mon nu 
terug naar Basic, en moeten we het weer 
opstarten. De meeste andere monitoren 
zullen na J F56C echter gewoon naar de 
invoer-mode terugkeren. 

Voordat we gaan kijken wat er in het 
geheugen staat geven we eerst de norma- 
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Ie Basic-vektoren vanaf $0316. De 
CHROUT-vektor op $0326/27 is omlijnd. 
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Bekijken we met M yui6 9333 nu echter 
wat we in het geheugen hebben geladen, 
dan zien we dat de CHROUT-vektor is 
veranderd van $F1 CA in $0334. Omdat we 
het hele tweede blok $9000 geheugen- 
plaatsen te ver hebben geladen vinden we 
op $9334 de routine die anders op $0334 
zou worden uitgevoerd. 

Aan de hand van de monitor-listing en het 
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subroutine-overzicht voor Stap 3 zullen we 
dit programma even globaal analyseren. 
De routine ”CARTRIDGE TEST” zorgt er¬ 
voor dat het programma in een eindeloze 
lus terechtkomt als er een detecteerbare 
cartridge in de uitbreidingspoort zit. De 
routine ”ROM’S IN TEST” springt naar een 
andere eideloze lus (op $9394) als een van 
de ROM’s is uitgeschakeld. ”LAAD BLOK” 
laadt een volgend blok van het programma 
de computer binnen. Hiertoe wordt het 
beginadres $CE00 in de pointer $C1/C2 
en het eindadres in de pointer $AE/$AF 
gezet. Vervolgens wordt de ROM-routine 
$F84A aangeroepen, die het blok dus bin¬ 
nenhaalt naar geheugengebied $CE00- 
$CFFF. De routine "DECODERING” deco¬ 
deert de binnengekomen informatie door 
elke byte te EOR-en met de waarde $FF en 
er dan $21 bij op te tellen. 

Je ziet nu waarom het van belang is dat je 
monitor de ruimte $CE00-$CFFF vrij heeft. 
Daar komt namelijk het eigenlijke turbo- 
laadprogramma van "Ghostbusters” te 
staan. Je kunt dit programma met enkele 
kunstgrepen natuurlijk ook naar bijvoor- 
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beeld $8E00-$8FFF laden, maar dan zul je 
ook het programma zelf moeten aanpas¬ 
sen. Er komen namelijk veel JSR’s in voor, 
en die gaan altijd naar absolute adressen. 

Stap 3 

Na de decoderingsroutine volgt een JMP 
naar $CF80. We willen echter niet dat die 
daadwerkelijk plaats vindt omdat we dan 
weer de controle over het laden kwijt zou¬ 
den raken. Dat voorkomen we door een 
$00 in lokatie $9391 te zetten. $00 is de 
machinecode voor de opdracht BRK en 
BRK veroorzaakt altijd een sprong terug 
naar de monitor. Voor de zekerheid slaan 
we de veiligheidsroutines maar over en 
typen we G 935D in, waarna het volgende 
blok de computer binnenrolt. We kunnen 
nu de eigenlijke laadroutine gaan analyse¬ 
ren die op CF80 begint. 

Deze routine bestaat uit 4 opdrachten. De 
subroutine $CE00 wordt twee keer aange¬ 
roepen. Het is dus zaak om die routine 
goed te leren kennen. Dat doen we weer 
mede aan de hand van een suroutinelijst. 
Overigens worden die subroutines in de 
monitor-listing gescheiden door horizon- 


routine "VERNIETIG PROGRAMMA" wijst. 
Dit heeft als gevolg dat het programma na 
het indrukken van run-stop/restore tijdens 
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het laden uit het geheugen wordt gewist. 
Tevens wordt Timer A van CIA 2 geladen 
met de waarde $0118. Deze tijdsduur is de 
grenswaarde met betrekking tot de te la¬ 


bit, en anders met een 0-bit. Op de elektro¬ 
technische aspekten van het saven en 
laden met cassette komen we trouwens in 
een volgende aflevering nog wel eens te¬ 
rug. 

De routine "SYNCHRONISATIE TEST” be¬ 
staat uit een aantal kleinere fragmenten. 
Eerst wordt er gewacht op het eerste 1 -bit, 
en dan op nog 255 achtereenvolgende 1 - 
bits. Dan wordt er gewacht op het eerste 0- 
bit. Tenslotte moet de eerste volledige 
byte de waarde $33 hebben. Is dit niet het 
geval, dan begint de synchronisatie test 
weer van voren af aan. 

De routine "LAAD BEGIN-EN EINDA- 
DRES” laadt de volgende vier bytes de 
computer binnen. Deze vormen per twee 
respektievelijk het begin- en het eindadres 
van het te laden blok. Merk op dat het 
beginadres als het ware "in het program¬ 
ma” wordt geladen. De waarde $FFFF van 
regel $CE5B wordt gewoon veranderd 
door een andere. Op zich is dat nog niet zo 
erg, maar uit het vervolg zal blijken dat dit 
adres tijdens de uitvoering van de laadrou¬ 
tine ook nog eens telkens met 1 wordt 
verhoogd. Dit om het adres te creeren 


tale lijnen. 

De routine "INITIALISERING” zorgt ervoor 
dat de NMI-vektor op $0318/19 naar de 


den bits. Als de tijd tussen twee z.g.n. 
"negatieve flanken" groter is dan deze 
waarde hebben we te maken met een 1 - 


waar de zojuist geladen byte moet worden 
ondergebracht. Als een programma zich¬ 
zelf op zo’n manier verandert spreken we 
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van zelf-modificatie. Deze methode van 
programmeren moet ik iedereen ten stel¬ 
ligste ontraden. Sterker nog: wat mij be¬ 
treft mag dit bij de grondwet worden ver¬ 
boden. God heeft niet voor niets zijn enig 
geboren indirect,Y adressing-mode aan 
de mensheid geschonken! 

Met de routine ”LAAD BLOK” begint dan 
eindelijk het laden van het ”Ghostbusters”- 
programma. Hoewel... het betreft in eerste 
instantie alleen nog maar het openings¬ 
scherm met de copyright-mededelingen. 
De routine begint met het laden van een 
byte, die in de aangegeven geheugen- 
plaats wordt gezet. Als checksum-contro- 
le wordt elke byte ge-EOR-ed met lokatie 
$CED7. Dan wordt getest of het eindadres 
al is bereikt. Is dit niet het geval, dan wordt 
het laadadres verhoogd, evenals lokatie 
$D020 van de VIC-chip voor het flash- 
effekt tijdens het laden. Als het eindadres 
wel is bereikt wordt de checksum vergele¬ 
ken met de laatste te laden byte. Is alles 
o.k., dan springen we terug naar de aan¬ 
roepende routine vanaf $CF80. En als de 
checksum niet klopt wordt het programma 
weer eens gewist. 

De routine "HAAL BYTE” leest een byte 
van de cassette en zet deze in lokatie 


$CED6. Hiertoe wordt 8 keer achter elkaar 
de routine ”HAAL BIT” aangeroepen. Deze 
test het flag-bit van CIA 1 om te kijken of er 
al een negatieve flank (spanningsverande¬ 
ring van hoog naar laag) is binnengeko¬ 
men. Als dit het geval is wordt gekeken of 
de Timer al is afgelopen. Zoals gezegd 
dient dit voor het maken van onderscheid 
tussen een 0- en een 1 -bit. Het Carry-bit 
wordt overeenkomstig gecleared of geset. 
De timer wordt weer gestart en tenslotte 
wordt er nog even geflashed. 


$CF89 en typen de opdracht G CF80 in. Na 
een paar minuten staat "Ghostbusters” in 
het geheugen. De kraak is geslaagd. We 
moeten alleen nog weten waar het pro¬ 
gramma begint. Dat is dus niet op adres 
$0E00, waar een beveiligingsroutine zit, 
maar op adres $0FE0. Verder is het van 
belang om te weten dat ook het RAM 
onder de Basic-ROM wordt gebruikt. Dit 
moet daarom mee worden gesaved. 
"Ghosbusters” beslaat dan het gebied 
$0FE0-$BFFF. 


Stap 4 

Bij ”Ghostbusters” verbaas je je regelma¬ 
tig over de krakersvriendelijke laadroutine. 
Zo meende ik aanvankelijk dat de over¬ 
zichtelijk hoofdroutine op $CF80 een re¬ 
gelrechte valstrik was. Dat bleek echter 
niet zo te zijn. Na het inladen van het eerste 
turbo-blok zorgt de subroutine $0A00 (te¬ 
vens het beginadres van het blok) er voor 
dat je het openingsscherm krijgt te zien. 
Vervolgens wordt het tweede blok netjes 
volgens dezelfde laadroutine op $CE00 
binnengehaald. 

Maar vervolgens is het zaak om niet naar 
de ”subroutine” $0E00 te springen. Daar¬ 
door start ”Ghostbusters” namelijk ver¬ 
keerd! We zetten dus een $00 (BRK) in 




mmm 


Tot zover het kraken van ”Ghostbus- 
ters”. Zoals gezegd gaat stap 1 van dit 

artikel op voor welk auto-start pro- 

, 

gramma op cassette dan ook . De ver¬ 
der acties die je moet ondernemen 
verschillen van spel tot spel. Wat dat 
betreft leer je natuurlijk het best in de 

praktijk. Elk programma valt, ook zon - 

■ 

der kraakknop, te kraken en je zult zien 
dat je kennis over de 6510-processor 
met sprongen omhoog zal gaan als je je 
ermee bezig houdt Dat komt doordat 
zo’n vastomlijnd doel een uitstekende 
motivatie is voor het opdoen van 
kennis! 

Sj.B . 


;-yp$r. 
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Nieuwe instructies 
toevoegen aan de 

bestaande Basic 


ommodore Basic is niet bepaald bekend als de meest 
geavanceerde vorm van deze programmeertaal. 

Vele gebruikers ergeren zich aan de povere Basic van 
de Commodore 64 en grijpen naar verbeteringen als 
bv. Simonss Basic, Maar ook daar zit vaak net niet die 
instructie in, die nodig was. Daarom wordt hieronder de 
mogelijkheid, om zelf commando’s toe te voegen, uitgewerkt. 
Dit is uw kans: voeg zelf de instructies die u nodig heeft toe 
aan de gewone Basic. 

Er zijn twee manieren om dit te bereiken: een gemakkelijke en een 
ietwat moeilijkere. Jammer genoeg is juist deze laatste in het 
merendeel van de gevallen de beste. 

In dit artikel behandelen we eerst de eenvoudige manier en de 
andere komt dan in een volgend nummer aan de beurt. 

Eerst het probleem, hoe kan er een extra programma in het 
geheugen worden gezet, dat dan steeds is aan te roepen, 
wanneer nodig, een zgn. "resident” stukje software. Een vriend 
van mij heeft voor zijn werk constant een programma in zijn 
(computergeheugen. Daar hij echter ook gewoon wil kunnen 
programmeren, heeft hij eenvoudig een nieuwe instructie, PROC, 
ingelast, die naar zijn speciaal programma "springt”. 

Dit werkt betrekkelijk eenvoudig, indien je weet hoe de Commo¬ 
dore zijn instructies onderzoekt. Hiertoe gebruikt hij de CHRGET- 
routlne die van $0073 tot $008A gelegen is (deze wordt hier 
geplaatst tijdens het initialisatie-proces). 

De reden dat deze routine zich in RAM bevindt, is het variabel 
adres op $007A- $007B. Dit getal, de textpointer (=textptr) 
genoemd, is immers het adres van het huidige teken dat moet 
onderzocht worden. Meteen heb ik reeds verklapt wat deze 
routine precies doet: zij haalt een teken uit het RAM-geheugen, 
onderzoekt dit op een spatie of een dubbele punt en geeft dit door 
aan de Basic- interpeter. Een listing van deze routine vindt u 
hieronder. Let er wel op dat het adres achter de LDA-instructie in 


regel 

$0079 variabel is. 


0073 

INC 

$7A 

; verhoog textptr 

0075 

BNE 

$0079 


0077 

INC 

$7B 


0079 

LDA 

$0800 

; dit is een variabel adres! 

007C 

CcP 

#$3A 

; is het een dubbele punt? 

007E 

CS 

$008A 

; zo ja: einde 

0080 

CMP 

#$20 

; is het een spatie? 

0082 

BEQ 

$0073 

; zo ja: opnieuw 

0084 

SEC 



0085 

SBC 

#$30 


0087 

SEC 



0088 

SBC 

#$D0 


008A 

RTS 


; spring terug naar ROM 



Indien we deze routine nu zo aanpassen, dat ze vóór ze terug¬ 
springt naar de ROM, eerst onderzoekt of het teken dat ze 
opgenomen heeft, een teken van de nieuwe instructie is, dan ligt 
de weg tot het uitbreiden van de Basic open: indien het inderdaad 
een dergelijk teken is, springt de routine in plaats van naar de 
ROM naar een door ons geschreven routine. 

Het aanpassen van de GHRGET-routine gaat heel gemakkelijk 
door de pointers ervan op adres $0308-$0309 op de nieuwe 
routine te laten pointen (lage byte in $0308 en hoge byte in $0309). 


Om dit alles wat minder abstract te maken, volgt hieronder een 
voorbeeldje waarin we de instructie Test aan de gewone Basic 
toevoegen. 


INIT 

LDA 

#<START; beginadres specifieren 


STA 

$0308 



LDA 

#>START 



STA 

$0309 



RTS 




NOP 



START 

JSR 

$0073 

; haal teken 


CMP 

#$54 

; is het een T? 


BNE 

END 

; zoniet: standaardinstructie 


LDA 

$7A 

; zet textptr in stack 


PHA 




LDA 

$7B 



PHA 




LDX 

#$00 


LOOP 

JSR 

$0073 

; controleer de andere letters 


CMP 

$TABLE,X 



BNE 

ERROR 

; indien verschillend: terug naar 
ROM 


INX 




CPX 

#$03 



BNE 

LOOP 



JMP 

MAIN 

; spring naar de bijbehorende 
routine 

ERROR 

PLA 


; haal textptr van stack 


STA 

$7B 



PLA 




STA 

$7a 



JMP 

$A7E7 

; spring naar ROM 


NOP 



TABLE 

BYT 

’EST 
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Het is te begrijpen, dat een dergelijk onderzoek veel computertijd 
vergt. Zeker indien er dan nog verschillende zelfgemaakte instruc¬ 
ties moeten gecontroleerd worden: stel dat er bijvoorbeeld drie 
nieuwe instructies zijn die respectievelijk met een T, een S, en een 
F beginnen. Dan moet ieder nieuw teken dat opgenomen wordt, 
op drie verschillende letters onderzocht worden. Daarom zou het 
veel makkelijker zijn indien de computer onmiddellijk kan zien of 
een nieuwe instructie volgt, of niet. De manier hiertoe is iedere 
nieuwe instructie door eenzelfde, niet door de computer gebruikt 
teken te laten voorafgaan (bijvoorbeeld het @- of het £-teken). De 
nieuwe CHRGET-routine moet dan immers maar 1 teken meer 
onderzoeken; is dit teken nu het speciale teken, dan onderzoekt 
ze het woord erachter, dus net als vroeger, doch is dit niet het 
geval, dan springt ze onmiddellijk terug naar de ROM. 

Als voorbeeld heb ik hier de instructie £TEST bijgevoegd. 


INIT 

LDA 

#<START 



STA 

$0308 



LDA 

#> START 



STA 

$0309 



RTS 




NOP 



START 

JSR 

$0073 



CMP 

#$5C 

; is het een £-teken? 


BNE 

END 

; zoniet: standaardinstructie 


LDA 

$7A 



PHA 




LDA 

$7B 



PHA 




LDX 

#$00 


LOOP 

JSR 

$0073 

; controleer de andere letters 


CMP 

$TABLE,X 



BNE 

ERROR 

; indien verschillend: terug naar 
ROM 


INX 




CPX 

#$04 

; opgelet: nu 4 letters controleren 


BNE 

LOOP 



JMP 

MAIN 

; spring naar de bijbehorende 
routine 

ERROR 

PLA 


; haal textptr van stack 


STA 

$7B 



PLA 




STA 

$7A 



JMP 

$A7E7 

; spring naar ROM 


NOP 



TABLE 

BYT 

TEST 



Ook het nadeel van deze routine komt al vrij vlug aan het lid 
indien het £-teken is gevonden, moet het woord nog volledig 
onderzocht worden, wat niet heel gezellig is voor lange woorden 
en zeker niet als ze dan nog in iedere regel voorkomen. Dus rijst de 
vraag of we niet ieder woord zouden kunnen voorstellen door 1 
teken. Wel, het kan, immers de CBM 64 doet het met de 
standaard- instructieset ook. Zo wordt bijvoorbeeld PRINT voor¬ 
gesteld door het hexa-decimaal getal $99. Dit getal wordt een 
token genoemd. 

Doch deze manier is niet zo eenvoudig (er moet o.a. een groot 
deel van de ROM aangepast worden) en wordt in een later artikel 
behandeld. Oefen ondertussen maar wat met deze methode, 
want indien slechts een paar korte instructies moeten worden 
toegevoegd, gaat dat er vrij goed mee. 
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Educatieve software voor de leerling is gemeengoed, maar wat moet de onderwijs¬ 
kracht, die iets meer wil doen dan het opstarten van de micro’s voor zijn leerlingen. 
Voor hen heeft een van de betere uitgeverijen op dit gebied zich sterk gemaakt met een 
zeer brede oplossing. We vinden het nog een beetje een compilatie van leuke 
deelstukken, maar de richting is wel goed. 


Courseware: 



Lescursor voor 
software maken 
door iedere leerkracht 


vragen maken, maar ook invuloefeningen, 


D e rol van de computer in het 
onderwijs houdt niet op bij het 
vak informatica. Ook in het aan¬ 
bieden van de leerstof bij ande¬ 
re schoolvakken komen de bij¬ 
zondere eigenschappen van de compu¬ 
ter tot hun recht. Bij oefeningen en het 
opdoen van routine, bij herhaling van 
niet geheel verwerkte stof of het weg¬ 
werken van leerachterstanden bijvoor¬ 
beeld. 

Deze mogelijkheden zijn ruimschoots be¬ 
kend; iedereen heeft wel voorbeelden ge¬ 
zien van educatieve programma’s waarbij 
de computer een zinvol instrument van de 
leerkracht is. Helaas is er voor het toepas¬ 
sen van de computer in de les meer nodig 
dan een enkel voorbeeld. Om tot een 
breed aanbod van software te komen zul¬ 
len enkele drempels in de ontwikkeling van 
programma’s weggenomen moeten 
worden. 

Kennis van het onderwijs 

Software voor het onderwijs - vaak ge¬ 
bruikt men hiervoor de term courseware - 
vereist allereerst kennis van dat onderwijs, 
kennis van leerlingen. Voor het onwerpen 
van courseware moet eerst een stukje 
leerstof zorgvuldig worden geanalyseerd. 
Hoe kan de stof worden uitgepslitst in 
zinvolle onderdelen? Op welke wijze wor¬ 
den deze onderdelen aan de leerling aan¬ 
geboden? Welke reacties moet de leerling 
geven? Hoe zal op die reacties worden 
ingesprongen? Wat moet het resultaat zijn 
en hoe stelt de computer dat vast? Veel 
onderwijsgevenden zijn prima in staat om 
deze analyse te maken. Ze doen het iedere 
dag; dat is hun vak. Daarvoor hebben ze 
ook geen computer nodig. 

Kennis van programmeren? 

Courseware maken vereiste tot nu toe ook 
kennis van programmeren. Dat is; het gea¬ 
nalyseerde probleem vertalen in codes die 
een computer kan verwerken. Die codes 
zijn programmeertalen, zoals Basic of Pa¬ 
scal. Ze zijn niet speciaal gemaakt voor 
onderwijsgebruik: u moet zich vaak in 
bochten wringen om te bereiken wat u wilt. 
Ook zijn het vrij abstracte, omslachtige 


talen en ze zijn pijnlijk nauwgezet. Elke 
onzorgvuldigheid wreekt zich onmiddel¬ 
lijk: uw programma werkt niet goed. 

Het programmeren van een stukje course¬ 
ware kost veel tijd, vaak honderden uren. 
Bovendien zijn leerkrachten meestal niet 
ook nog programmeurs. Geen wonder dus 
dat de beschikbaarheid van programma’s 
te wensen over laat. Dartoe heeft Malm- 
berg nu het pakket (of laten we zeggen 
courseware-omgeving) Lescursor ont¬ 
wikkeld, waarmee software maken door 
de leerkracht makkelijker te maken valt. 

Het courseware-ontwikkelpakket Lescur¬ 
sor van Malmberg maakt kennis van een 
programmeertaal vrijwel overbodig. Alle 
lastige computerkuren mag u vergeten, 
want Lescursor vraagt in gewoon Neder¬ 
lands wat de computer moet gaan doen. 
hoe dat op het scherm aan de leerling 
gepresenteerd moet worden. Hoe er op 
antwoorden van de leerling gereageerd 
moet worden. 

Verschillende deelstukken 

In het ontwikkelprogramma voor algeme¬ 
ne lessen kunt u niet alleen meer keuze 


rekenopgaven en ja/nee-vragen. Steeds 
van het zelfde type of door elkaar. Met 
Taalcursor wordt de constructie van speci¬ 
ale taaloefeningen eenvoudig gemaakt: 
over spelling, ontleden en interpunctie bij¬ 
voorbeeld. Zelfs tekeningen en animaties 
vormen geen probleem: met de speciale 
hulpprogramma’s Tekencursor en Anima- 
tiecursor stelt u ze samen en voegt u ze 
moeiteloos in uw courseware in. Als alle 
vragen beantwoord zijn is de courseware- 
les klaar. Met het leerlingenprogramma 
kan het door u gemaakte materiaal onmid¬ 
dellijk door de leerling gebruikt worden. 



0 tik een toets 5 amwatie 

i vul in 6 tekenen 

Z rekenen 7 tekst 

3 heerkeuzt 8 inforwjUe 

4 naar andere les 9 hulpiienu 


Mat kiest u ? ■ 
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De Lescursor 

Met de Lescursor, overigens nu beschik¬ 
baar voor de C64 voor ƒ 595,-, kunnen we 
allerlei lessen samengesteld worden. In 
het hoofmenu zien we de belangrijkste 
mogelijkheden: het intypen van teksten (7), 
het presenteren van tekeningen (5) of ani¬ 
maties (6) en het stellen van vragen (0 t/m 
3). Er zijn diverse vraagtypen mogelijk: 

- tik een toets (o): het leerlingenantwoord 
bestaat uit het indrukken van een toets; 

- vul in (1): hiermee maakt u een invuloefe¬ 
ning; 

- rekenen (2): u laat de leerling een bereke¬ 
ning maken; 

- meerkeuze (3): voor het samenstellen van 
een meerkeuzevraag. 

Kiest u ’tekst’, dan kunt u een beeldscherm 
met tekst samenstellen. De computer 
vraagt u allereerst of u de grootte van de 
letters wilt wijzigen. Als u kiest voor grotere 
letters vertelt de computer u hoeveel te¬ 
kens u op een regel kwijt kunt en hoeveel 
regels op een scherm. Vervolgens kunt u 
de tekst intypen, precies zoals u hem 
straks - in het leerlingenprogramma - op 
het scherm wilt hebben. 

Bij het invoeren van een meerkeuzevraag 
stelt de computer u een reeks vragen: 

- hoeveel pogingen mag de leerling doen? 

- wat is de vraag? 

- wat zijn de alternatieven? 

U typt telkens de gegevens van de door u 
gewenste vraag in. Tussendoor laat de 
computer u op een aantal momenten zien 
wat u gedaan hebt. En uiteraard vraagt de 
computer u wat het juiste antwoord. 

De Taalcursor 

De Taalcursor lijkt in veel opzichten op de 
Lescursor. Ook hier ziet u in het hoofdme¬ 
nu de mogelijkheden van animatie, teke¬ 
ningen en het inbrengen van tekst. 

Het verschil zit in de vraagtypen: de Taal¬ 
cursor beschikt over een aantal specifieke 
vormen van vraagstelling, die van toepas¬ 
sing zijn op taaloefeningen. U kunt opga¬ 
ven maken met betrekking tot zinsbouw, 
spelling, vervoeging en interpunctie. Ver¬ 
der kunt u, net als in de Lescursor, invuloe¬ 
feningen maken. 

U hebt "vervoeging” gekozen. Allereerst 
kunt u bepalen hoeveel pogingen de leer¬ 
ling mag doen. Daarna wil de computer 



0 

ontleding 

3 

eniMa 11e 

i 

spelling 

6 

tekenen 

S 

vervoeging 

7 

tekst 

3 

interpunctie 

8 

i n for»»at i e 

4 

kies eon woord 

9 

Kulpnenu 


Mat kiest u ? ■ ■ 

I f 


twee dingen van u weten: de infinitief en de 
zin met de juiste vervoeging. De leerling 
krijgt straks de zin gepresenteerd als een 
invuloefening, waarbij op de open plaats 
de juiste vorm van het werkwoord moet 
worden ingevuld. 

Zowel de Taalcursor als de Lescursor be¬ 
vatten een hulpmenu. Daarin kunt u onder 
andere gemaakte programma’s laden, be¬ 
waren en wijzigen. Ook kunt u hier kiezen 
voor het doorgaan naar een andere les. 
Met ’extra lus kunt u aan bepaalde leerlin¬ 
gen, afhankelijk van de score, extra lesma¬ 
teriaal geven. Daarmee is het mogelijk om 
de leerstof gedifferentieerd aan te bieden. 
Met het tekenprogramma Tekencursor 
stelt u in hoge resolutie - met een heel fijn 
penseel als het ware - uw eigen tekeningen 
samen. 

ilnl.: Malmberg 073-215565 



Samenvattend kunnen we zeggen, dat 
lescursor een veelzijdige aanpak heeft, 

dat verschillende onderdelen er goed 

. ** . . . 

uitzien en goed doordacht zijn , maar 

dat de integratie wat te wensen over - 

■ . . 

laat Met mooie deelstukken benut men 

namelijk ook deelterreinen. 
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men alternatief voor cte joystick 

Ronny Willems uit Beveren België vond uit, dat het joystick stuurschema in Cl no 8 
jrg.2 problemen oplevert, omdat de diode 1n4148 daarin 700 mV doorlaat in de 
verkeerde richting en stuurde ons een andere oplossing, dat ook nog goedkoper te 
maken is. 
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INZENDVOORW AARDEN 


Programma’s en artikelen kunnen aan de 
redactie van Commodore-lnfo, PB 112, 
1260 AC te Blaricum met vermelding RE¬ 
DACTIE Cl, worden ingezonden en worden 
eventueel geplaatst, waarbij de inzender 
een door de redactie te bepalen vergoe¬ 
ding ontvangt. Vermeld altijd naam, adres 
en vooral telefoonnummer. Alleen Listings, 
waarvan een cassette of diskette beschik¬ 
baar is, komen in aanmerking. 

Gezien het relatief grote aantal inzendin¬ 
gen kan verwerking enige tijd op zich laten 
wachten. Indien we zeker niet tot plaatsing 
overgaan, ontvangt men de inzending re¬ 


tour, eventueel houden we het nog enige 
tijd als reserve. 

SAC behoudt zich het recht voor, er redac¬ 
tionele wijzigingen in aan te brengen. Door 
inzending accepteert men, dat bij plaat¬ 
sing alle publikatierechten, ook in electro- 
nische vorm, op de uitgever van het blad 
overgaan en dat men het blad vrijwaart van 
aanspraken van derden, bijvoorbeeld om¬ 
dat het programma eigenlijk van een ander 
is of bv. deels of geheel uit een ander blad 
is overgenomen. Het overnemen van lis¬ 
tings door lezers is toegestaan, maar ver¬ 
koop van die listings, in welke vorm ook, 
aan derden is voorbehouden. a 
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